static extern Int32 midiStreamPause(IntPtr hMidiStream);
Declare Function midiStreamPause Lib "winmm.dll" (ByVal hMidiStream As IntPtr) As Integer