ต้องการส่งค่า จาก textbox จาก form1 ไป textbox form2 ทำยังไงครับ

Form1
Public Shared tb As TextBox

 Private Sub fmsale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tb = txtfg_code
End Sub

Private Sub fmsale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      textbox1.Text = form1.tb.Text
End Sub

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.ShowDialog()
    End Sub
End Class

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = ("ค่าที่รับมา") & Form1.TextBox1.Text
    End Sub
End Class