VB Fare gizleme / Gösterme (mausepointer)

[mayhemious]

forma ekleyiniz

Private Sub Command1_Click()
FareGöster
End Sub

Private Sub Command2_Click()
FareGizle
End Sub


Modüle Ekleyiniz

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

Sub FareGöster()
ShowCursor True
End Sub

Sub FareGizle()
ShowCursor False
End Sub