Visual Basic

Dim myHandler As Windows.Forms.KeyPressEventHandler<br />
<br />
    Custom Event myEvent As Windows.Forms.KeyPressEventHandler<br />
        AddHandler(ByVal value As Windows.Forms.KeyPressEventHandler)<br />
            myHandler = value<br />
        End AddHandler<br />
<br />
        RemoveHandler(ByVal value As Windows.Forms.KeyPressEventHandler)<br />
            myHandler = Nothing<br />
        End RemoveHandler<br />
<br />
        RaiseEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)<br />
            If Not myHandler Is Nothing Then<br />
              Me.TextBox1.Invoke(sender, e)            Else<br />
            End If<br />
        End RaiseEvent<br />
    End Event<br />
<br />
    Sub raise_event()<br />
        Dim sender As New Object<br />
        Dim e As System.Windows.Forms.KeyPressEventArgs<br />
        RaiseEvent myEvent(sender, e)<br />
    End Sub<br />
<br />
<br />
    Dim d1 As Windows.Forms.KeyPressEventHandler<br />
<br />
<br />
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        d1 = New Windows.Forms.KeyPressEventHandler(AddressOf MyDelegate)<br />
    End Sub<br />
<br />
    Sub MyDelegate(ByVal sender As Object, ByVal e As Windows.Forms.KeyPressEventArgs)<br />
        If Asc(e.KeyChar) = 65 Then<br />
            MsgBox("65")<br />
        ElseIf Char.IsLetterOrDigit(e.KeyChar) <> True Then<br />
            MsgBox(Asc(e.KeyChar))<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        AddHandler Me.myEvent, d1<br />
        raise_event()<br />
    End Sub