VB - Show/Hide Mouse Cursor

Add two command buttons (Command1 , Command2) and add the following code :

VB Code:

Private Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)
 
Private Sub Command1_Click()
ShowCursor (True)
End Sub
 
Private Sub Command2_Click()
ShowCursor (False)
End Sub
 
Private Sub Form_Load()
 Command1.Caption = "show"
 Command2.Caption = "hide"
End Sub