class1.vb

来自「Visual Basic.net 实例入门」· VB 代码 · 共 18 行

Public Class MyMath
    Private bTest As Boolean = False
    Public Function Add(ByVal Val1 As Long, ByVal Val2 As Long) As Long
        Return Val1 + Val2
    End Function
    Public Property Extra() As Boolean
        Get
            Return True
        End Get
        Set(ByVal Value As Boolean)
            bTest = Extra
        End Set
    End Property
End Class