Entwicklung - VB - CD-Schublade per Programm öffnen

'API-Function deklarieren
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()

tsOpenCdFach True

End Sub

Private Sub Command2_Click()

tsOpenCdFach False

End Sub

'Durch Aufruf dieser Funktion wird die Schublade geöffnet oder geschlossen
Function tsOpenCdFach(tsOpen As Boolean)

If tsOpen = True Then
mciExecute "Set CDaudio door open"
Else
mciExecute "Set CDaudio door closed"
End If

End Function