'******************************
'此代码添加到Form2窗体中
Private f1 As Form1 '定义Form1
'重载Sub New
Public Sub New(ByVal f1 As Sample1Form1)
'把smapleform1当变量传递给smaple1form2
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
Me.f1 = f1
End Sub
'修改Form1的Text
f1.text=""Hello""
'*******************************
'此代码添加到Form1中
'将当前窗体作为参数传递给form2
dim f2 as form2 = new form2(me)
f2.show()