Public Shared m_add As String ‘这样我们在form1的任何地方都可以更改m_add的值

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        m_add = \"111\"

End Sub

在form2中写入：

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

        MessageBox.Show(Form1.m_add) ‘显然我们可以得到form1的这个变量了

End Sub

注意：使用shared时，不用定义实例，被定义成shared的变量或属性在所有的实例中都是一个值。就象上面的例子中使用Form1.m_add一样。所以如果是打开很多的同一个窗体的实例时，该值不变化,可以用来记录打开的实例数量。

3.这种方法传递一个窗体实例过去，这样就可以获得该实例的变量与属性了。当然也可以对他们进行操作。

例如：在form1中

       Dim frm As New Form2(me)

        frm.Show()

       在form2中：

       Dim m_parent as form1

        Public Sub New(ByVal sender As Object)

        MyBase.New()

        \'该调用是 Windows 窗体设计器所必需的。

        InitializeComponent()

        \'在 InitializeComponent() 调用之后添加任何初始化

M_parent=ctype(sender,form1) ‘或者m_parent=directcast(sender,form1)

    End Sub

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

        m_parent.textbox1.text = \"1111\"

End Sub

4.设置一个属性来控制访问

     这种方式在new 一个窗体后，show他出来前设置它的一个公共属性，这个属性就是本窗体的实例。当然也可以不是一个属性而是一个公共的字段。

如：在form1中：

Dim newform as new form2()

Newform.setparentform = me

Newform.show()

在form2中：

Dim m_parentform as form1

Public property setparentform as form1

Get

    Return m_parentform

End get

Set (byval value as form1)

    m_parentform = value

End set