vb.net 如何传递类参数

[zjcxyxy]

'例：
public class form1
    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles       MyBase.Load
    init(me)
    end sub
    Public Sub PictureBoxClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    end sub
end class

public class form2
    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    init(me)
    end sub
    Public Sub PictureBoxClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    end sub
end class
'等等，有很多form要初始化。
model form_init
    public sub init(byval form as object)
        For Each pic In form.Controls.OfType(Of PictureBox)()
            Dim picture As PictureBox
            picture = pic
            AddHandler picture.Click, AddressOf form.PictureBoxClick
        Next
    end sub
end model
'要达到的效果是，传递一个form1变量，这是类变量。动态根据我是from1还是from11，form21等等，为变量赋值。
'这个传递过来的变量是class类型的，不知道如何接受，像我上面的程序是有问题的。
'提示：错误“PictureBoxClick”不是“System.Windows.Forms.Form”的成员。

[Tiger_Zhao]

VB.Net 的思想就是:
给 Form1 .. Form21 做一个基类 PictureFormBase，所有窗体都继承它；
Init 函数中的参数就是 PictureFormBase 类型。

[zjcxyxy]

楼上垃圾，我自己解决了。