限制鼠标移动2.frm

Windows API函数,希望大伙有用哦

VERSION 5.00
Begin VB.Form Form2 
   BackColor       =   &H00C00000&
   BorderStyle     =   0  'None
   Caption         =   "Form2"
   ClientHeight    =   1410
   ClientLeft      =   1170
   ClientTop       =   1305
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   94
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   312
   ShowInTaskbar   =   0   'False
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "正在工作，请等待  ！"
      BeginProperty Font 
         Name            =   "华文新魏"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   750
      TabIndex        =   0
      Top             =   450
      Width           =   3585
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Dim Client As RECT
    Dim Qu As POINT
    GetClientRect Me.hWnd, Client
    Qu.Width = Client.Left
    Qu.High = Client.Top
    ClientToScreen Me.hWnd, Qu
    OffsetRect Client, Qu.Width, Qu.High
    ClipCursor Client
End Sub