如何使userform的属性在其实例调用之间保持值

Public Class UserForm
    Private Shared _propertyValue As String

    Public Property PropertyValue As String
        Get
            Return _propertyValue
        End Get
        Set(value As String)
            _propertyValue = value
        End Set
    End Property

    ' 在属性更改事件中将属性的值赋给静态变量
    Private Sub PropertyTextBox_TextChanged(sender As Object, e As EventArgs) Handles PropertyTextBox.TextChanged
        _propertyValue = PropertyTextBox.Text
    End Sub

    ' 在实例调用UserForm时，从静态变量中获取属性的值
    Public Shared Function GetPropertyValue() As String
        Return _propertyValue
    End Function
End Class

Module SharedModule
    Public Shared PropertyValue As String
End Module

Public Class UserForm
    ' 在属性更改事件中将属性的值赋给公共变量
    Private Sub PropertyTextBox_TextChanged(sender As Object, e As EventArgs) Handles PropertyTextBox.TextChanged
        SharedModule.PropertyValue = PropertyTextBox.Text
    End Sub

    ' 在实例调用UserForm时，从公共变量中获取属性的值
    Public Shared Function GetPropertyValue() As String
        Return SharedModule.PropertyValue
    End Function
End Class

Public Class UserForm
    Private Shared _instance As UserForm
    Private _propertyValue As String

    Public Property PropertyValue As String
        Get
            Return _propertyValue
        End Get
        Set(value As String)
            _propertyValue = value
        End Set
    End Property

    ' 在属性更改事件中将属性的值保存在私有变量中
    Private Sub PropertyTextBox_TextChanged(sender As Object, e As EventArgs) Handles PropertyTextBox.TextChanged
        _propertyValue = PropertyTextBox.Text
    End Sub

    ' 获取UserForm的实例（Singleton模式）
    Public Shared Function GetInstance() As UserForm
        If _instance Is Nothing Then
            _instance = New UserForm()
        End If
        Return _instance
    End Function

    ' 在实例调用UserForm时，通过公共方法获取属性的值
    Public Shared Function GetPropertyValue() As String
        Return GetInstance().PropertyValue
    End Function
End Class