핸들연결

Public Class Form1

    Private Delegate Sub 델리게이트(sender As System.Object, e As System.EventArgs)

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        MsgBox("Button1클릭이벤트발생")

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        Dim mydel As 델리게이트

        mydel = AddressOf Button1_Click

        mydel.Invoke(sender, e)

    End Sub

End Class

'Button2 클릭했을때 Button1클릭이벤트가 발생함.

기존의 방법

Call Button1_Click(sender, e)

Button1_Click(sender, New EventArgs)