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


Reply With Quote