Private Declare Function mciExecute Lib "winmm.dll" (ByVal _
        lpstrCommand As String) As Long

Public Sub Ap_001_Open()
  Call mciExecute("Set CDaudio door open")
End Sub

Public Sub Ap_001_Close()
  Call mciExecute("Set CDaudio door closed")
End Sub

Download

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 isPlaying As Boolean

Public Sub Ap_002_Play()
   Dim mp3File As String 'Dim mp3File$
       mp3File = Chr$(34) & "C:\Musik\Musik.mp3" & Chr$(34)
    If isPlaying = True Then
  Call mciSendString("Stop MM", 0&, 0&, 0&)
  Call mciSendString("Close MM", 0&, 0&, 0&)
  Call mciSendString("Open " & mp3File & " Alias MM", 0&, 0&, 0&)
  Call mciSendString("Play MM", 0&, 0&, 0&)
  Else
  Call mciSendString("Open " & mp3File & " Alias MM", 0&, 0&, 0&)
  Call mciSendString("Play MM", 0&, 0&, 0&)
       isPlaying = True
   End If
End Sub

Public Sub Ap_002_Stop()
    If isPlaying = False Then Exit Sub
  Call mciSendString("Stop MM", 0&, 0&, 0&)
  Call mciSendString("Close MM", 0&, 0&, 0&)
End Sub

Download