I put this in module1:

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


I put this in form1:

Private Sub Command1_Click()

' Open's the MIDI
mciSendString "open C:\Program Files\Pest\Hall.mid type sequencer alias background", 0, 0, 0
' Play's the MIDI
mciSendString "play background", 0, 0, 0

End Sub

Private Sub Command2_Click()
' Closes the MIDI
mciSendString "close background", 0, 0, 0

End Sub


My forms and buttons are set, "Winmm.dll" is in my system files, the file "hall.mid" is where it should be and my midi is not muted on my sound card's mixer.

What the hell am I doing wrong?