bclass_MsgResponse = emrPostProcess
   Case WM_LBUTTONDOWN
      ISubclass_MsgResponse = emrPostProcess
   Case WM_DESTROY
      ISubclass_MsgResponse = emrPostProcess
   End Select
   '
End Property

Private Function ISubclass_WindowProc(ByVal hWnd As Long, ByVal iMsg As Long,
 ByVal wParam As Long, ByVal lParam As Long) As Long
   '
   Select Case CurrentMessage
   Case WM_LBUTTONUP
      'Debug.Print "Class2:WM_LBUTTONUP"
   Case WM_MOUSEMOVE
      'Debug.Print "Class2:WM_MOUSEMOVE"
   Case WM_LBUTTONDOW