如何以各种形式更新公共财产的价值？ VB.net

Question

This is my code in module1:

Module Module1

Private strMessage As String = Form3.TextBox1.Text
Public Property getMessage() As String
    Get
        Return strMessage
    End Get
    Set(ByVal strCustomerFirstName As String)
        strMessage = strCustomerFirstName
    End Set
End Property

End Module

I use Form3 to assign the value to strMessage in module1:

    Public Class Form3
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        getMessage = TextBox1.Text
        Form1.Show()
        Me.Hide
    End Sub
End Class

But when I update the new value in Form3 the value that is displayed in Form1 didn't update at all. How can I update the value without using the me.close() in form1.

 Dim numberOfCharactersToDisplay As Integer = 100 Dim scrollingTextSelector As String Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load scrollingTextSelector = getMessage Do Until scrollingTextSelector.Length > (getMessage.Length + numberOfCharactersToDisplay) scrollingTextSelector &= " " & getMessage Loop End Sub 

Answer 1

Private strMessage As String = Form3.TextBox1.Text

Public Property getMessage() As String
    Get
        Return strMessage
    End Get
    Set(ByVal strCustomerFirstName As String)
        strMessage = strCustomerFirstName
        form3.textbox1.text = strMessage
    End Set
End Property