FNXBasic

Hello,

I am writing a program for practicing rythm in music. For that i need a subroutine that can play individual sounds.
On the internet I found for VB:

Private Declare Function midiOutClose Lib "winmm.dll" (ByVal hMidiOut As Long) As Long
Private Declare Function midiOutOpen Lib "winmm.dll" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Private Declare Function midiOutShortMsg Lib "winmm.dll" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long

Dim hMidiOut As Long

Private Sub Form_Load()
Dim T As Long
midiOutOpen hMidiOut, 0, 0, 0, 0
midiOutShortMsg hMidiOut, 6567325
T = Timer
Do: DoEvents: Loop Until Timer > T + 4
midiOutClose hMidiOut
End Sub

and translated this into:

dim myform as form
declare mOC as "midiOutClose" of "winmm.dll"
 hMidiOut as long
 result as integer
end declare

declare mOO as "midiOutOpen" of "winmm.dll"
 lphMidiOut as long
 uDeviceID as long
 dwCallback as long
 dwInstance as long
 dwFlags as long
 result as integer
end declare

declare mOSM as "midiOutShortMsg" of "winmm.dll"
 hMidiOut as long
 dwMsg as long
 result as integer
end declare

dim hMidiOut As long

mOO.uDeviceID=-1
mOO.dwCallback=0
mOO.dwInstance=0
mOO.dwFlags=0
mOO

mOSM.hMidiOut=6567325
moSM

sleep 1000

mOC

myform.showmodal

I cannot findout why this is not working.

Hans