小吳 VBQA 程式設計討論

Option Explicit
Private ObjRate As Double
Public Property Get Rate() As Double
Rate = ObjRate
End Property
Public Property Let Rate(newRate As Double)
ObjRate = newRate
End Property
Public Function TaxIt(price) As Double
TaxIt = price + (price * ObjRate)
End Function

是不是vb6的程式碼