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

Private Sub Command1_Click()
' auf
' Vergessen Sie nicht, den richtigen Laufwerks-
' buchstaben zu setzen !
    mciSendString "Open E: Alias LaufwerkE Type CDAudio", 0, 0, 0
    mciSendString "Set LaufwerkE Door Open", 0, 0, 0
 
End Sub

Private Sub Command2_Click()
 
    ' zu
    mciSendString "Open E: Alias LaufwerkE Type CDAudio", 0, 0, 0
    mciSendString "Set LaufwerkE Door Closed", 0, 0, 0
 
End Sub