VBS類使用實例
Class Test
Public a
Private Sub Class_Initialize()
end sub
Private Sub class_terminate()
end sub
Public Property Let Value(ByVal vNewValue)
a = vNewValue
End Property
Public Property Get Value
Value= a
End Property
End Class
Dim o
Set o = new Test
o.a = "Hello"
MsgBox o.a
o.Value = "World"
MsgBox o.Value