Đưa con trỏ đến một vị trí nhất định home Xuất xứ : www.pscode.com Binh khí sử dụng : Một Module, 2 nút ấn (CommandButton) Đoạn mã : Module : Public Type POINTAPI X As Long Y As Long End Type Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Public Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long) As Long Sub MoveMouse(X As Single, Y As Single) Dim pt As POINTAPI pt.X = X pt.Y = Y ClientToScreen Form1.hwnd, pt SetCursorPos pt.X, pt.Y End Sub Form : Private Sub Form_Load() MoveMouse 500, 400 End Sub . Đưa con trỏ đến một vị trí nhất định home Xuất xứ : www.pscode.com Binh khí sử dụng : Một Module, 2 nút ấn (CommandButton)