Fare İmlecini Saklamak / Göstermek

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

Private Sub Command1_Click()
FImlec = ShowCursor(False) ' Fare imlecini saklar
End Sub

Private Sub Command2_Click()
FImlec = ShowCursor(True) ' Fare imlecini gösterir
End Sub