17-10-12, 12:19 AM
كاتب الموضوع : 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