Public Delegate Function test(ByVal hmd As Integer, ByVal wMsg As _
      Integer, ByVal dwInstance As Integer, ByVal dwParam1 As Integer, ByVal _
      dwParam2 As Integer) As Boolean
 
' Name "API-Aufruf" als Bsp. für irgendeine API
    Declare Function API-Aufruf Lib "winmm.dll" (ByRef lphmd As Integer, ByVal _
      devIDIn As Integer, ByVal cbfuncIn As test, ByVal cbdataIn As _
      Integer, ByVal cboptionsIn As Integer) As Integer
 
        API-Aufruf(hmd, 1, AddressOf MeineFunktion, 0, CALLBACK_FUNCTION)
 
    Public Function MeineFunktion(ByVal hmd As Integer, ByVal wMsg As _
      Integer, ByVal dwInstance As Integer, ByVal dwParam1 As Integer, ByVal _
      dwParam2 As Integer) As Boolean
        MessageBox.Show("Test-Funktions-Aufruf")
    End Function