程序代码：

Public Class Form1

    Dim firstName, lastName As String
    Public Property fullName() As String
        Get
            If lastName = "" Then
                Return firstName
            Else
                Return firstName & " " & lastName
            End If

        End Get
        Set(ByVal Value As String)
            Dim space As Integer = Value.IndexOf(" ")
            If space < 0 Then
                firstName = Value
                lastName = ""
            Else
                firstName = Value.Substring(0, space)
                lastName = Value.Substring(space + 1)
            End If
        End Set
    End Property

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        fullName = "Firstname LastName"
        MsgBox(fullName)
    End Sub
End Class

程序代码：

    'txtEdit 是一个TextBox
    Public Property EditText() As String
        Get
            Return txtEdit.Text
        End Get
        Set(ByVal value As String)
            txtEdit.Text = value
        End Set
    End Property

    '使TextBox内的字符变成大写 这里EditText = EditText.ToUpper 返回到get set 是怎么个调用过程？
    Public Sub UpperCaseText()
        EditText = EditText.ToUpper
        StatusText = "The text is uppercase"
    End Sub