Public Delegate Function test(ByVal hmidiIn As Integer, ByVal wMsg As Integer, _
  ByVal dwInstance As Integer, ByVal dwParam1 As Integer, ByVal dwParam2 As _
  Integer) As Boolean
 
Declare Function midiInOpen Lib "winmm.dll" (ByRef lphMidiIn As Integer, ByVal _
  devIDIn As Integer, ByVal cbfuncIn As test, ByVal cbdataIn As Integer, ByVal _
  cboptionsIn As Integer) As Integer
 
 
Private Sub irgendwas
rcIn = midiInOpen(hmidiIn, midi2in.SelectedIndex, AddressOf MidiInProc, _
  0,CALLBACK_FUNCTION)
' (danach folgen MidiInAddBuffer(...), MidiInPrepareHeader(...), usw..)
End Sub
 
 
Public Function MidiInProc(ByVal hmidiIn As Integer, ByVal wMsg As Integer, _
  ByVal dwInstance As Integer, ByVal dwParam1 As Integer, ByVal dwParam2 _
  As Integer) As Boolean
 
' Diese Funktion wird beim Eintreffen von Sysex-Daten aufgerufen
 
End Function