o screen coordinates
   If (m_oOwner Is Nothing) Then
      ' Position relative to the screen, in pixels
      X = tP.X
      Y = tP.Y
   Else
      On Error Resume Next
      Dim oParent As Object
      oParent = m_oOwner.Parent
      If (Err.Number = 0) Then
         hWndParent = m_oOwner.Parent.hwnd
      Else
         hWndParent = m_oOwner.hwnd
      End If
      
      GetWindowRect hWndParent, tR
      X = tP.X - tR.left
      Y = tP.Y - tR.top
   End If
End Sub

Private Sub Class_Terminate()
   Compl