'Hier die benötigten API-Deklarationen
 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

Public Sub PlayMusic(sPath As String)
' Datei öffnen
  StopPlay
  OpenDat sPath
 
' Abpsielvorgang starten
  SendCommand "play TempMCI from 0"
 
End Sub
 
Private Sub OpenDat(ByVal sFIle As String)
  Dim sBuffer As String
  Dim lResult As Long
  Dim sReturn As String
 
  ' Da die mciSendString Funktion mit langen Dateinamen
  ' nicht korrekt arbeitet, muss zuvor der kurze
  ' 8.3 Dateiname der Sound-Datei ermittelt werden.
  sBuffer = Space$(255)
  lResult = GetShortPathName(sFIle, sBuffer, _
    Len(sBuffer))
 
  If lResult <> 0 Then
    sFIle = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
  End If
 
  ' Sound-Datei öffnen
  mciSendString "open " & sFIle & _
    " type " & "MPEGVideo" & " alias TempMCI", 0, 0, 0
End Sub
 
Private Function SendCommand(ByVal sCmd As String) As Long
  Dim lResult As Long
  Dim sReturn As String
 
  sReturn = Space$(256)
  lResult = mciSendString(sCmd, sReturn, Len(sReturn), 0&)
 
  SendCommand = Val(sReturn)
End Function