ate Sub Class_Terminate()
   ' Clear up subclass:
   DetachMouseTracking
End Sub

Private Property Get ISubclass_MsgResponse() As SSubTimer.EMsgResponse
   ' Let Windows pre-process message:
   ISubclass_MsgResponse = emrPreprocess
End Property

Private Property Let ISubclass_MsgResponse(ByVal RHS As SSubTimer.EMsgResponse)
   '
End Property


Private Function ISubclass_WindowProc(ByVal hWnd As Long, ByVal iMsg As Long,
 ByVal wParam As Long, ByVal lParam As Long) As Long
Dim x As Single, y As Single

   ' 