
      m_tmr.Interval = 0
      Set m_tmr = Nothing
   End If
   
   If Not (m_frmRefPoint Is Nothing) Then
      Unload m_frmRefPoint
      Set m_frmRefPoint = Nothing
   End If
   
   EndMiddleScroll
   
End Sub

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

Private Property Get ISubclass_MsgResponse() As EMsgResponse
   '
   ISubclass_MsgResponse = emrPreprocess
   '
End Property

Private Function ISubclass_WindowProc(ByVal hwnd As Long, ByVal iMsg As Long,
 ByV