有关MIDI的关闭？

Question

用End语句结束整个应用程序。

Answer 1

sub Form_Unload
end
end sub

Answer 2

在Form_Unload事件中写相应的代码，例如：
Option ExplicitPrivate 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 LongPrivate Sub Command1_Click()
    mciSendString "open c:\Aria.mid alias myMIDI", vbNullString, 0, 0
    mciSendString "play myMIDI", vbNullString, 0, 0
End SubPrivate Sub Command2_Click()
    mciSendString "close myMIDI", vbNullString, 0, 0
End SubPrivate Sub Form_Unload(Cancel As Integer)
    mciSendString "close myMIDI", vbNullString, 0, 0
End Sub

Answer 3

Private Sub Form_Unload (Cancel As Integer)
END
End Sub