[RaggiTech]

كاتب الموضوع : AhmedEssawy

*** منقول من المنتدى القديم ...

أضف التالي في موديل

كود :

Public Declare Function ShowCursor& Lib "user32" (ByVal lShow As Long)

ثم اكتب التالي حسب المكان الذي تحدد ولنفرض زر امر

اضف زر امر واكتب التالي في حدث الضغط علية لاخفاء المؤشر

كود :

Private Sub Command1_Click()
ShowCursor (False) 'لاخفاء الماوس
End Sub

واخر لاظهار المؤشر

كود :

Private Sub Command2_Click()
ShowCursor (True) ' لاظهار الماوس
End Sub