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

Private Sub Command1_Click() '可见
	ShowCursor True
End Sub

Private Sub Command2_Click() '不可见
	ShowCursor False
End Sub