当前窗口隐藏鼠标:

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