Dim Sakri As Long
Dim Vrati As Integer

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


Public Sub Nevidi()

Do
Sakri = Sakri - 1
Vrati = ShowCursor(False)
Loop Until Vrati < 0

End Sub



Public Sub Vidi()

Do
Sakri = Sakri - 1
Vrati = ShowCursor(True)
Loop Until Vrati >= 0

End Sub
Private Sub Command1_Click()
Nevidi
End Sub

Private Sub Command2_Click()
Vidi
End Sub