Pubic Sub form1_button1_click(sender As System.Object, e As System.EventArgs) Handes Button1.Click
Dim frm as Form2
frm.ShowDialog()
Me.Textbox1.Text = frm.TextboxA.Text
...