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
zxz