すべてのフォームのパブリックプロパティの値を更新するにはどうすればよいですか？ VB.net

Question

これは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 

エンドモジュール

私はModule1の中でstrMessageに値を代入したForm3を使用します。

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 

しかし、ときに私は新しいを更新Form3の値は、Form1に表示される値はまったく更新されませんでした。 form1でme.close（）を使用せずに値を更新するにはどうすればよいですか？

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