Private Declare Function apiSetForegroundWindow Lib "user32" _
      Alias "SetForegroundWindow" _
      (ByVal hwnd As Long) As Long


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

   Dim msg As Long
   
   If Me.ScaleMode = vbPixels Then
      msg = X
   Else
      msg = X / Screen.TwipsPerPixelX
   End If
   Select Case msg
      Case WM_LBUTTONUP        '514 restore form window
         Me.WindowState = vbNormal
         Call apiSetForegroundWindow(Me.hwnd)
         Me.Show
      Case WM_LBUTTONDBLCLK    '515 restore form window
         Me.WindowState = vbNormal
         Call apiSetForegroundWindow(Me.hwnd)
         Me.Show
      Case WM_RBUTTONUP        '517 display popup menu
         Call apiSetForegroundWindow(Me.hwnd)
         Me.PopupMenu Me.mPopupSys
   End Select
End Sub