程序代码：

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strform1 As String
        strform1 = TextBox1.Text
        Form2.TextBox1.Text = strform1
        Form2.Show()


    End Sub
End Class