Public Property CustomerNo() As TextBox
    Get
        Return txtCustomerNo
    End Get
    Set(ByVal Value As TextBox)
        txtCustomerNo = Value
    End Set
End Property

在您希望引用控件的表单中：

Dim CustomerNo as string = _sourceForm.CustomerNo.Text

这样做是一个糟糕的设计,但这是最简单的方法 – 并且应该让你顺利进行.

如果您只对文本框中输入的值感兴趣,那么以下可能更好：

Public ReadOnly Property CustomerNo() As String
    Get
        Return txtCustomerNo.Text
    End Get
End Property

以上将要求第二个表单引用第一个表单的实际实例.将以下内容添加到第二个表单：

Private _sourceForm as frmGenerate

Public Property SourceForm() As frmGenerate 
    Get
        Return _sourceForm
    End Get
    Set(ByVal Value As frmGenerate)
        _sourceForm = Value
    End Set
End Property

现在,您可以执行以下操作来处理第二个表单的创建和启动：

Dim customersForm as new frmCustomers
customersForm.SourceForm = Me
customersForm.Show()

编辑：
我在这里为你构建了一个示例项目：

http://www.yourfilelink.com/get.php?fid=595015