Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
 
  Dim sDrives As String
  Dim fsoWCger As New FileSystemObject
  Dim CDRom As Drive
 
/// Die CDroms werden in einer Combo2  Box angezeigt  und man kann eins _
  auswählen
 
Set CDRom = fsoWCger.GetDrive(Left(Combo2, 1) & ":")
If CDRom.IsReady Then
     Shape1.BackColor = RGB(0, 255, 0)
Else
     Shape1.BackColor = RGB(255, 0, 0)
End If