عندي Label1 اريد ان اظهر في داخلها اسما الازرار ع

-09

الاخ الفاضل

فى الحدث mouse_move

Private Sub Check1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = Check1.Caption
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = Command1.Caption
End Sub

Private Sub Option1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = Option1.Caption
End Sub

جرب الكود السابق و ضع option - check - command

و شكرا

الف شكر بس المشكلة ان الاسم في الليبول يبقي عند الاخير حتى

ولو وضعت الماوس على الفورم

السلام عليكم ورحمة الله وبركاتة

Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = ""
End Sub

يعطيك العافية أخي shearer وجعلك الله عونا للجميع

ردود رائعة وسرعة عالية

أخوك ناصر