Private Sub Form_Load()
'CDrom Laufwerke***************************
Dim LW$, i%, Typ&, dl&, buff$, m$
dl = GetLogicalDriveStrings(0, 0)      '# Get number
buff = String$(dl, 0)
dl = GetLogicalDriveStrings(dl, buff)  '# Get String
'Debug.Print buff
For i = 1 To Len(buff) Step 4
  m = Mid$(buff, i, 3)
  Typ = GetDriveType(m)
  If Typ = DRIVE_CDROM Then
    LW = LCase$(Left$(m, 1))
    If LW <> "a" And LW <> "b" Then
    mnuCDLetter(0).Caption = m & " Öffnen"
  End If
      End If
        Next
'CDrom Laufwerke*ende**************************
End Sub