' Visual Basic 2008 9.0 .NET Examples - Relaxed Delegates - New in Visual Basic 2008 - 9.0 : 
Class Button
    'Public Delegate Sub ClickDelegate(ByVal sender As Object, _
    '                                  ByVal e As EventArgs)
    'Public Event Click As ClickDelegate
    ' or shorter :
    Public Event Click As EventHandler(Of EventArgs)
    Protected Sub OnClick()
        RaiseEvent Click(Me, EventArgs.Empty)
    End Sub
    Public Sub SimulateClick()
        OnClick()
    End Sub
End Class
Class Form
    Friend WithEvents Button1 As New Button
    Private Sub Button1_Click(ByVal sender As Object, _
                              ByVal e As EventArgs) Handles Button1.Click
        Console.WriteLine("Form.Button1_Click")
    End Sub
End Class
Class Example2
    Public Shared Sub Main()
        Dim form1 As New Form
        AddHandler form1.Button1.Click, AddressOf Button1_Click
        form1.Button1.SimulateClick()
        '
        Console.ReadLine()
    End Sub
    Private Shared Sub Button1_Click(ByVal sender As Object, _
                                     ByVal e As EventArgs)
        Console.WriteLine("Example2.Button1_Click")
    End Sub
End Class
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.