Code conversion from vb 6.0

[akademika]

How to implement WinApi callback?

I have this vb6.0 code how can I run it in vb.net 2005?


Declare Function midiInOpen Lib "winmm.dll" (lphMidiIn As Long, ByVal uDeviceID As Long, ByVal dwCallback As Any, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long


Public Function Memorize_Event(ByVal MidiInHandle As Long, ByVal Message As Long, _
ByVal Instance As Long, ByVal dw1 As Long, ByVal dw2 As Long) As Long
'alabala code
End Function

my code:

tmp = midiInOpen(tmp1, List2.ListIndex, AddressOf Memorize_Event, 0, CALLBACK_FUNCTION)

 

[vis781]

Public Declare Function midiInOpen Lib "winmm.dll" (ByRef lphMidiIn As Int32, 
ByVal uDeviceID As Int32, ByVal dwCallback As Int32, 
ByVal dwInstance As Int32, ByVal dwFlags As Int32) As Int32

In VB.Net and int32 is equivalent to an old vb6 long.