 aren't
   '   ' controlled by the UI sizing loop:
   '   If Not (m_bInSizeMove) Then
   '      GetWindowRect m_hWnd, tR
   '      lWidth = tR.Right - tR.Left
   '      lHeight = tR.Bottom - tR.Top
   '      RaiseEvent Sizing(tR.Left, tR.Top, lWidth, lHeight)
   '   End If
      
   Case WM_DESTROY
      ' Ensures the class terminates regardless
      ' of whether the user explicitly detaches
      ' it or not:
      'Debug.Print "WM_DESTROY"
      Detach
   End Select
End Function
</pre><p>&#160;</p><p>&#1