Public Sub SetText(ByVal strHoge As String) Me.TextBox1.Text = strHoge End Sub
Dim frm2 AS New Form2 frm2.SetText(TextBox1.Text) frm2.Show()