[kslawy]

استبدل كل الكود الخاص بالأداة UserControl1 بهذا الكود :

كود :

Public Class UserControl1




    Private Sub UserControl1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick
        MessageBox.Show("Hi you click me!", "Helow", MessageBoxButtons.OK)
    End Sub


    Private Sub UserControl1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseHover, Label1.MouseHover, Label2.MouseHover
        If Me.BackColor = Color.Silver Then
            Exit Sub
        End If


        Me.BackColor = Color.GhostWhite


    End Sub


    Private Sub UserControl1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave


        If Me.BackColor = Color.Silver Then
            Exit Sub
        End If


        Me.BackColor = Color.White


    End Sub


    Private Sub UserControl1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        For Each uc As UserControl In Me.Parent.Controls
            uc.BackColor = Color.White
        Next
        Me.BackColor = Color.Silver
    End Sub






End Class

****
***
**
*