' Kräver en knapp 'Command1'

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

Private Sub Command1_Click()

If Me.Command1.Caption = "HideCursor" Then
ShowCursor 0
Me.Command1.Caption = "ShowCursor"
Else
ShowCursor 1
Me.Command1.Caption = "HideCursor"
End If

End Sub