'// Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.TextBox1.Text = "aaa" Debug.WriteLine("Set aaa") Form2.Show() Form2.TextBox1.SelectionLength = 0 End Sub '// Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Debug.WriteLine("Form2_Load") Debug.WriteLine(Me.TextBox1.Text) End Sub [出力] >Set aaa >Form2_Load >aaa