Public Class Methods
    Public Sub DoSomething
        ' Mach was
    End Sub
 
    Public Sub DoSomethingElse
        ' Mach was anderes
    End Sub
End Class
 
Public Class Main
 
    Private dictFunctions As New Dictionary(Of String, String)
    Private myMethods As New Methods
 
    Private Sub Fuellen()
        ' Dictionary wird mit den vom Benutzer festgelegten Funktionen 
        ' gefüllt...
        dictFunctions.Add("cmd1", "DoSomething")
        dictFunctions.Add("cmd2", "DoSomethingElse")
    End Sub
 
    Private Sub CommandReceived(ByVal midiCommand As String)
        ' Nach dem Empfang eines Commands
        GetType(Methods).GetMethod(dictFunctions(midiCommand)).Invoke( _
          myMethods, Nothing)
    End Sub
 
End Class