Public Sub Move( _ ByVal Point1 As Point, _ ByVal Point2 As Point _ )
AttributeDef Object | AttributeDef Members