Visual Basic - Unidades de CDROM

hola necesito un codigo que me indique solo las unidades de CDROM en un listbox, y cuando yo selecciono en el listbox la unidad de CDrom haga lo que yo le ponga, sino que me diga que hay un error( por ejemp que no hay CD en la unidad), aparte necesito que si hay un Cd en la unidad, me de el nombre del CD, tamaño, etc. y esas cosas, yo se que ustedes me pueden ayudar por favor lo necesito urgente, si hay un ejemplo en codigo envienmelo al mail, se los agradecere

Saludos

Amigo, manipula este ejemplo para llenar el list; citado de: www.canalvisualbasic.net
--------------------------------------------------------------------------------
Crea un formulario con una etiqueta y escribe lo siguiente:

Option Explicit

Private Declare Function GetDriveType Lib "kernel32" Alias
"GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias
"GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal
lpBuffer As String) As Long
Private Const DRIVE_REMOVABLE = 2
Private Const DRIVE_FIXED = 3
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_CDROM = 5
Private Const DRIVE_RAMDISK = 6

Function StripNulls(startStrg$) As String
Dim c%, item$
c% = 1
Do
If Mid$(startStrg$, c%, 1) = Chr$(0) Then
item$ = Mid$(startStrg$, 1, c% - 1)
startStrg$ = Mid$(startStrg$, c% + 1, Len(startStrg$))
StripNulls$ = item$
Exit Function
End If
c% = c% + 1
Loop
End Function

Private Sub Form_Load()
Dim r&, allDrives$, JustOneDrive$, pos%, DriveType&
Dim CDfound As Integer
allDrives$ = Space$(64)
r& = GetLogicalDriveStrings(Len(allDrives$), allDrives$)
allDrives$ = Left$(allDrives$, r&)
Do
pos% = InStr(allDrives$, Chr$(0))
If pos% Then
JustOneDrive$ = Left$(allDrives$, pos%)
allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$))
DriveType& = GetDriveTy