Call Test

        Class Tester

        Dim mvarTesterName,mvarAge,mvarGender

        Sub Class_Initialize '構造函數

        MsgBox "接下來，大家歡迎新同事的到來！"

        End Sub

        Sub Class_Terminate '析構函數

        If mvarGender Then

        MsgBox "很遺憾，" & mvarTesterName & "先生脫離了測試行業！"

        Else

        MsgBox "很遺憾，" & mvarTesterName & "女士脫離了測試行業！"

        End If

        End Sub

        Sub Test(ByVal ProjectName)

        MsgBox mvarTesterName & "正在加班加點的測試" & ProjectName & "呢!"

        End Sub

        Sub Eat(ByVal food)

        MsgBox mvarTesterName & "正在吃" & food & "呢，好爽??！"

        End Sub

        Property Let Gender(ByVal vData)

        mvarGender = vData

        End Property

        Property Get Gender()

        Gender = mvarGender

        End Property

        Property Let Age(ByVal vData)

        mvarAge = vData

        End Property

        Property Get Age()

        Age = mvarAge

        End Property

        Property Let TesterName(ByVal vData)

        mvarTesterName = vData

        End Property

        Property Get TesterName()

        TesterName = mvarTesterName

        End Property

        End Class

        Sub Test()

        Set sb = New Tester '創建一個對象，對象名叫somebody，它是由Tester創建出來的

        sb.TesterName = "songfun"

        sb.Age = 29

        sb.Gender = True

        sb.Eat "HagenDaz"

        sb.Test "手機"

        If sb.Gender Then

        MsgBox sb.TesterName & "先生年方" & sb.Age

        Else

        MsgBox sb.TesterName & "女士芳齡" & sb.Age

        End If

        Set sb = Nothing

        End Sub