Public Class Form1 Private Sub btnTest_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnTest.Click Dim delegateIns As New MyDelegate AddHandler delegateIns.Event, AddressOf Me.Method delegateIns.UseFirstDelegate("Hello delegate.") End Sub Private Sub Method(ByVal arg As String) MessageBox.Show(arg) End Sub End Class Public Class MyDelegate Public Delegate Sub FirstDelegate(ByVal arg As String) Public Event [Event] As FirstDelegate Public Sub UseFirstDelegate(ByVal arg As String) If arg Is Nothing Then arg = "" End If RaiseEvent [Event](arg) End Sub End Class