VisuaL Basic ( Fare İmLecini GizLemek )

VisuaL Basic ( Fare İmLecini GizLemek )

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

Const CURVISIBLE = 1
Const CURINVISIBLE = 0

Dim durum As Boolean

Private Sub Command1_Click()

Select Case durum
Case True
durum = False
ShowCursor CURINVISIBLE
Case False
durum = True
ShowCursor CURVISIBLE
End Select

End Sub

Private Sub Form_Load()

durum = True

End Sub