How to eject and load any CD drive

I've found this nice code to eject any CD in different drives. But how I must modify this code to reload the CD in the device ???

Could anybody help ???

Thanks

Michael



Private Type Registers
    RegBX As Long
    RegDX As Long
    RegCX As Long
    RegAX As Long
    RegDI As Long
    RegSI As Long
    RegFlags As Long
End Type

Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Boolean
End Type

Private Const FILE_FLAG_DELETE_ON_CLOSE = &H4000000
Private Const VWin32_DIOC_DOS_IOCTL = 1

Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, ByVal lpOverlapped As Long) As Long

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Function EjectMedia(Drive As String) As Boolean
    Dim SecAttr As SECURITY_ATTRIBUTES
    Dim ErrorResult
    Dim hDevice As Long, Regs As Registers, RB As Long
   
    EjectMedia = False
    hDevice = CreateFile("\\.\vwin32", 0, 0, SecAttr, 0, FILE_FLAG_DELETE_ON_CLOSE, 0)
    If hDevice = -1 Then Exit Function
    With Regs
        .RegAX = &H220D
        .RegBX = Asc(Left$(UCase$(Drive), 1)) - 64
        .RegCX = &H849
    End With
    DeviceIoControl hDevice, VWin32_DIOC_DOS_IOCTL, Regs, Len(Regs), Regs, Len(Regs), RB, 0
    CloseHandle hDevice
    If Regs.RegAX = 0 Then EjectMedia = True
End Function