Class StandupTarget
Private m_primary, m_prim, m_sw, m_animate
Public Property Get Primary(): Set Primary = m_primary: End Property
Public Property Let Primary(input): Set m_primary = input: End Property
Public Property Get Prim(): Set Prim = m_prim: End Property
Public Property Let Prim(input): Set m_prim = input: End Property
Public Property Get Sw(): Sw = m_sw: End Property
Public Property Let Sw(input): m_sw = input: End Property
Public Property Get Animate(): Animate = m_animate: End Property
Public Property Let Animate(input): m_animate = input: End Property
Public default Function init(primary, prim, sw, animate)
Set m_primary = primary
Set m_prim = prim
m_sw = sw
m_animate = animate
Set Init = Me
End Function
End Class