Fare İmleci Sakla

Fare imleci sakla

--------------------------------------------------------------------------------

visual basıc'te Fare imleci saklama


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

Private Sub Command1_Click()
FareImleci = ShowCursor(False)
End Sub

Private Sub Command2_Click()
FareImleci = ShowCursor(True)
End Sub

Private Sub Form_Load()
Command1.Caption = "Fareyi gizle"
Command2.Caption = "Fareyi göster"
End Sub