新建From1（窗体），新建Command1（按钮CommandButton），Command2（按钮CommandButton），代码：

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
'隐藏鼠标
    lReturned = ShowCursor(0)
End Sub

Private Sub Command2_Click()
'显示鼠标
    lReturned = ShowCursor(1)
End Sub

如果鼠标消失，请用Tab键到Command2按回车。