' Code in Form 1
 
Public Class Form1
    Public ReadOnly Property GetString() As String
        Get
            Return TextBox1.Text
        End Get
    End Property
End Class
 
' Code in Form 2
 
Public Class Form2
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        MsgBox(Form1.GetString)
    End Sub
End Class