Définissez une méthode qui crée une instance du délégué et appelle la méthode associée au délégué en appelant la méthode Invoke intégrée.
Protected Sub DelegateTest()
Dim c1 As New class1
' Create an instance of the delegate.
Dim msd As MySubDelegate = AddressOf c1.Sub1
' Call the method.
msd.Invoke(10)
End Sub