1.委托傳參一
    'stpe1 聲明一個(gè)委托
    Delegate Sub DelegateHandler(ByVal str As String)

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

        ' step2 New 出一個(gè)委托并指定委托方法
        Dim dh As DelegateHandler = New DelegateHandler(AddressOf invokes)    'invokes為方法名
        ' step3 調(diào)用invoke
        Me.Invoke(dh, New Object() {"abc"})
    End Sub

    Private Sub invokes(ByVal n As String)
        MsgBox(n)
    End Sub

2.簡單指定事件非傳參
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pb As PictureBox = New PictureBox()
        pb.Image = Image.FromFile("D:\vbNet\card\card\bin\Debug\a111.bmp")
        pb.Width = 71
        pb.Height = 96
        pb.Left = 500
        pb.Top = 500

        Me.Controls.Add(pb)
        AddHandler pb.Click, AddressOf pb_Click

    End Sub

    Public Sub pb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox(sender.ToString)
    End Sub

3焦點(diǎn)控件
    Public Sub pb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox(Me.ActiveControl.Name)
    End Sub

4.循環(huán)取動(dòng)態(tài)生成控件
        Dim picbox As Object

        For Each picbox In Me.Controls
            If TypeOf picbox Is PictureBox Then
                If picbox.Name = "a111" Then
                    MsgBox(picbox.Name)
                End If
            End If
        Next

5.指定事件并傳參二
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pb As PictureBox = New PictureBox()
        pb.Image = Image.FromFile("D:\vbNet\card\card\bin\Debug\a111.bmp")
        pb.Width = 71
        pb.Height = 96
        pb.Left = 500
        pb.Top = 500
        pb.Name = "a111"
        Me.Controls.Add(pb)
        AddHandler pb.Click, AddressOf pb_Click
    End Sub

    Public Sub pb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim pb As PictureBox = sender
        MsgBox(pb.Name)
        MsgBox(pb.Left)
        MsgBox(pb.Top)
    End Sub