static extern uint midiOutShortMsg(IntPtr hMidiOut, uint dwMsg);
Declare Function midiOutShortMsg Lib "winmm.dll" (hMidiOut As Intptr,dwMsg As UInt32) As UInt32
midiOutShortMsg(hmidi, msg);