ส่งค่าข้าม Form vb.net

ที่ Form 1        
Public Class Form1
Public setUSER As String
------------------------------------------
 Public Property getUSER_() As String
        Get
            Return setUSER
        End Get
        Set(ByVal value As String)
            setUSER = value
        End Set
    End Property


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ME.setUSER  = "777"     '' เก็บค่าตัวแปล
       
End Sub

End Class


ที่ Form 2       

Public Class Form2
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(Form1.getUSER_)    '' เรียกใช้งาน
   
    End Sub

End Class


-------------- แบบที่สอง ----------------
 1. ที่ Module   

  Module Module1
     Public getForm1  As New ClassA
    
 End Module

2.ที่ Form 1  ''กำหนดค่าให้ตัวแปล
'ประกาศค่า    
 Public ttt As String
 Public tt As String 

       'กำหนดค่า
        getForm1.tt = "777"
        getForm1.ttt = "666" 

3.ที่ Form 2  '' แสดงผล
    MsgBox(getForm1.ttt)

    MsgBox(getForm1.tt)