Private Declare Function mciSendString lib "winmm.dll" alias "mciSendStringA" ( _
  ByVal cmdStr As String,ByRef strResult As String, ByVal resultstart As Long, _
  ByVal resultlength As Long) As Long
 
Public Overloads Sub MidiPlay(ByVal FileName As String) ' Öffnet eine aktuelle 
' Midi-Datei
    mciSendString("open " & Microsoft.VisualBasic.Strings.chr(34) & _
    FileName & Microsoft.VisualBasic.Strings.chr(34) & _
    " alias bgmusic",Nothing,0,0)
    mciSendString("play bgmusic from 0",Nothing,0,0)
End Sub
 
Public Overloads Sub MidiPlay() ' Spielt die aktuelle Datei ab. Achtung! Es 
' könnte sein, dass eine unschöne Fehlermeldung auftaucht, wenn Keine datei auf 
' den namen bgmusic geladen ist.
    mciSendString("play bgmusic from 0",Nothing,0,0)
End Sub
 
Public Sub MidiStop() ' Stopt die aktuelle Midi-Datei
    mciSendString("stop bgmusic",Nothing,0,0)
End Sub
 
Public Sub MidiRelease() ' Gibt den Platz frei für eine neue Midi
    mciSendString("close bgmusic",Nothing,0,0)
End Sub