[بدري]

عشان تتاكد اعمل مشروع جديد وضيف Label1 و Label2 و Shape1 واتركهم كما هم وضع هذا الكود وشغل المشروع

كود :

Private Sub Form_Load()
    Label1.BackColor = vbWhite
    Label1.Width = 600
    Label1.Height = 600
    Label1.Left = 150
    Label1.Top = 150
    
    Label2.Enabled = False
    Label2.BackColor = vbYellow
    Label2.Width = 600
    Label2.Height = 600
    Label2.Left = 350
    Label2.Top = 350
    Label2.ZOrder 0
        
    Shape1.BorderColor = &HC0C0C0
    Shape1.Left = Label1.Left
    Shape1.Top = Label1.Top
    Shape1.Width = Label1.Width
    Shape1.Height = Label1.Height
    Shape1.ZOrder 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.BackColor = vbWhite
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.BackColor = vbRed
End Sub

ادات Shape1 هي فقط لتتضح جوانب Label1 من اجل دخول الماوس في مجالها
و ZOrder=0 لجعل الادات في المقدمة لان الصفر هو المقدمه

---

والحاله هذي مع كل الادوات اذا عطلت اي اداه يعني Enabeld=False فالماوس يتصرف وكانها غير موجوده