اخفاء مؤشر الموس

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

Private Sub Form_Load()

ShowCursor 0 صفر للخفاء وواحد للإظهار'

End Sub

اشكرك اخى الكود شغال

يسلام لو كود تغير شكل المؤشر :D

بحاول أجيبهولك ان شاء الله عن قريب

هذا مثال على تغيير مؤشر الماوس

(((ليس من تصميمى)))

CopyIcon(change mouse icon).rar

هذا كود إخفاء المؤشر

'MODULE*******************************************************************************************

Declare Function ShowCursor lib "user32" (byval BShow as long)as long

'CODE=============================================================================================
'------------------------------لإخفاء المؤشر
showcursor (0)
'------------------------------لإظهار المؤشر
showcursor (1)

هذا كود لرسم مؤشر الماوس يمكن تحتاجه

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Sub Form_Paint()
DrawIcon Me.hdc, 30, 30, GetCursor
End Sub

شكرا لكم شريف جوت ومحمد جوست على هذا الكود الرائع

اشكركم جميعا لقد ساعدتمونى فيما اريد اشكركم اشكركم :D