Hide the Mouse Pointer

Declare Function ShowCursor& Lib "user32" _
 (ByVal bShow As Long)
 'Add this code to Command1.


Private Sub Command1_Click()

 ShowCursor (bShow = True)
End Sub

'Add this to Command2.


Private Sub Command2_Click()

 ShowCursor (bShow = False)
End Sub