*** Module from******
Module Module1
Public fromName As String
End Module
**** ให้ค่า ในfrom อื่น***
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
fromName = TextBox1.Text
Me.Text = fromName
End Sub
*********