Dim Focus As Integer

Sub mnu_Close_Click ()
Unload frmMain
End
End Sub

Sub mnu_Move_Click ()
    Mousepointer = 5
      Dim mpos As POINTAPI

      Dim p As ConvertPOINTAPI
      Dim ret As Integer

      Call GetCursorPos(mpos) ' Get the current position of the cursor
      LSet p = mpos           ' and convert it for SendMessage calls.
      ret = Sendmessage(frmMain.hWnd, WM_LBUTTONUP, 0, p.xy)

    ret = Sendmessage(frmMain.hWnd, WM_SYSCOMMAND, MOUSE_MOVE, p.xy)
    
End Sub

Sub mnuSystemMenu_Click ()
Focus = True
frmMain!Timer1.Interval = 10

End Sub