Public Class Form2
Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
End Sub
Public Sub New(ByVal strSomeTextFromForm1 As String)
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
TextBox2.Text = strSomeTextFromForm1
End Sub
End Class
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim myForm2 As New Form2(TextBox1.Text)
myForm2.Show()
End Sub