Mouse Göster ve Gizle Makrosu Hk.Yardım

[Ecstasy]

Declare Function showcursor Lib "user32" (ByVal bshow As Long) As Long
-------------------------------------------------------------------------------------
Sub faregoster()
showcursor True
End Sub
-------------------------------------------------------------------------------------
Sub faregizle()
showcursor False
End Sub

-------------------------------------------------------------------------------------
hata nerede bulamıyorum

 

[SGM020]

hata nerede bulamıyorum

Gizle için

ShowCursor 0

göster için

ShowCursor 1


olarak deneyin.

 

[Ecstasy]

yine olmuyor hata veriyor

 

[SGM020]

Aşağıdakini kendinize uyarlayın.

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Form_Load()
'Hide the cursor
ShowCursor 0
'Wait 10 seconds
t = Timer
Do: DoEvents: Loop Until Timer > t + 10
'Show the cursor
ShowCursor 1
End Sub