... Integer Private mY As Integer Private mWidth As Integer Private mHeight As Integer Public Property Let X(ByVal vValue As Integer) mX = vValue End Property Public Property Get X() As Integer ... As Integer, Y As Integer) Public Sub DrawBox(Canvas As Object, Optional fColor As Long) If IsMissing(fColor) Then Canvas.Line (mX, mY )-( mX + mWidth, mY + mHeight), , B Else Canvas.Line ... Object, Optional fColor As Long) If IsMissing(fColor) Then Canvas.Line (mX, mY )-( mX + mWidth, mY + mHeight), , B Else Canvas.Line (mX, mY )-( mX + mWidth, mY + mHeight), fColor, B End...