Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
Me.BackColor = Color.Aqua
End Sub
Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
Me.BackColor = Color.BlanchedAlmond
End Sub
Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Button1.BackColor = Color.BurlyWood
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.BackColor = Color.Black
End Sub
فقط انسخ الكود الى مشروع جديد واضف الزر
MouseEnter
هو دخول الفأرة الى النموذج
MouseLeave
العكس
طبعا في الايام القادمة سوف اودع نظام ويندوز وسوف انتقل الى نظام لينوكس لذا سوف لن اتمكن على ان ارد حول تسائلات
وشكرا"