Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
  ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal _
  uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim CurrentTrack As Integer
Dim NumTracks As Integer
Dim i As Integer
Dim DoorOpen As Boolean
_________________________________________________________________
 
Private Sub Form_Load()
    mciSendString "close all", 0, 0, 0
    mciSendString "open cdaudio alias cd wait shareable", 0, 0, 0
    mciSendString "set cd time format tmsf wait", 0, 0, 0
    NumberOfTracks
    CurrentTrack = 1
    DoorOpen = False
End Sub

 Declare Function mciSendString Lib "winmm16.dll" Alias "mciSendStringA" (ByVal _
   lpstrCommand As String, ByVal lpstrReturnString As String, ByVal _
   uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim CurrentTrack As Integer
Dim NumTracks As Integer
Dim i As Integer
Dim DoorOpen As Integer
 
Sub Form_Load()
Dim nResult As Long
nResultt = mciSendString("close all", "", 0, 0)
nResultt = mciSendString("open cdaudio alias cd wait shareable", "", 0, 0)
nResultt = mciSendString("set cd time format tmsf wait", "", 0, 0)
    'NumberOfTracks
    CurrentTrack = 1
    DoorOpen = False
End sub

Wer nicht fragt bleibt dumm, wer sich sch?mt zu fragen, sch?n dumm