Dim f As Form = New Form1
f.Show()

Public HauptForm As Form1

HauptForm = New Form1

Class Form2
 
  Public Sub New(tx1 As String, tx2 As String)
    InitializeComponent()
    Me.TextBox1.Text = tx1
    Me.TextBox2.Text = tx2
  End Sub
 
End Class

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
    Button1.Click
    Dim f As New Form2(Me.TextBox1.Text, Me.TextBox2.Text)
    f.ShowDialog()
  End Sub