Private Sub OK_Click(sender As System.Object, e As System.EventArgs) Handles OK.Click
Dim f As New Form1
f.TextBox1.Text = TextBox1.Text <------ ไม่ show 'abc' ที่ Form1
Form1.TextBox1.Text = TextBox1.Text <------ show 'abc' ที่ Form1
End Sub
บ้านๆคือ TextBox1 ใน Form2 ตั้งค่า ให้เป็น public ตามรูปครับ
แล้วใส่โค้ดใน Form1 แบบนี้ Code (VB.NET)
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim f As New Form2()
f.ShowDialog()
Me.TextBox1.Text = f.TextBox1.Text
End Sub
End Class
Code (VB.NET)
โค้ดใน Form2 แบบนี้
Public Class Form2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Close()
End Sub
End Class