   tR.Bottom = tR.Top + lHeight
      CopyMemory ByVal lParam, tR, Len(tR)
      
   Case WM_ACTIVATE
      ' Form is activated/deactivated:
      If wParam = 0 Then
         ' deactivate:
         m_bActive = False
         RaiseEvent Deactivate
      Else
         ' Activate
         m_bActive = True
         RaiseEvent Activate(wParam = 2)
      End If

   'Case WM_SIZE
   '   ' This ensures that you don't have to separately
   '   ' check for maximize/minimize/restore/in code
   '   ' movement, as these