动态添加控件的事件可以写在类中

Public Class Form3
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim a1 As New Mypicturebox
        Dim a2 As New Mypicturebox
        Dim a3 As New Mypicturebox
        a1.init(0, 100, "a1")
        a2.init(60, 100, "a2")
        a3.init(120, 100, "a3")
    End Sub
End Class

Public Class Mypicturebox
    Private WithEvents Mypicturebox As New System.Windows.Forms.PictureBox
    Private MyName As String
    Function init(ByVal x As Integer, ByVal y As Integer, ByVal name As String)
        MyName = name
        Mypicturebox.Size = New System.Drawing.Size(50, 50)
        Mypicturebox.Location = New System.Drawing.Size(x, y)
        Mypicturebox.BackColor = Color.SkyBlue
        Form3.Controls.Add(Mypicturebox)
        Return Nothing
    End Function
    Function GetMyName()
        Return MyName
    End Function
    Private Sub Mypicturebox_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mypicturebox.DoubleClick
        MsgBox(Me.GetMyName())
    End Sub
End Class
'动态添加的控件 可以把事件写在类中 方便重用