blic Property Get DrawObject() As Object
   Set DrawObject = m_obj
End Property
Public Property Let DrawObject(obj As Object)
   Set m_obj = obj
   Draw
End Property
Public Property Set DrawObject(obj As Object)
   Set m_obj = obj
   Draw
End Property

Public Sub Draw()
   If Not m_obj Is Nothing Then
      Dim tR As RECT
      GetClientRect m_obj.hWnd, tR
      DrawToDC m_obj.hWnd, m_obj.hDC, tR.Left, tR.Top, tR.Right, tR.Bottom
   Else
      ' Could use this to automatically paint the owner object
      '