Class oCommand
'input
Private VarIntNum
Public property Get Number
Number=VarIntNum
End Property
Public property Let Number(ByVal oNum)
VarIntNum=oNum
End Property
'output
Private VarResult
Public property Get Result
Result=VarResult
End Property
Public property Let Result(ByVal oResult)
VarResult=oResult
End Property
'default Function
Public Default Function Exec()
Me.Result=Number*Number
End Function
End Class
Function Constructor(ByVal newNumber)
Set Constructor = New oCommand
Constructor.Number= newNumber
End Function
Set con1=Constructor(3)
Call con1
print con1.Result