当前窗口隐藏鼠标:
Cursor.Hide();
系统隐藏鼠标(我没试过):
DeclareFunction ShowCursor Lib"user32.dll" (ByVal bShow AsInteger) AsInteger
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rc%
rc% = ShowCursor(False) '隐藏鼠标
rc% = ShowCursor(True) '显示鼠标
End Sub