請問有什麼命令或函數能控制鼠標？

Question

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As LongPrivate Sub Command1_Click()
    ShowCursor 0
    'Wait 5 seconds
    t = Timer
    Do: DoEvents: Loop Until Timer > t + 5
    'Show the cursor
    ShowCursor 1
End Sub

Answer 1

Dim t as single
Me.Enable = False
t = Timer
Do: DoEvents: Loop Until Timer > t + 5
Me.Enable = True
呵呵

Answer 2

API:
GetCursorPos
SetCursorPos

Answer 3

楼上讲得正确.
GetCursorPos
SetCursorPos
可以获取和设置鼠标的位置就象人操作一样.

Answer 4

GetCursorPos
SetCursorPos
getdoubleclicktime
setdoubleclicktime
swapmousebutton