SoloCodigo

HOLA COMPAÑEROS DEL SITIO, ESPERO ME PUEDAN AYUDAR CON ESTA DUDA QUE TENGO, EN UN FORMULARIO NORMAL (SIN QUE SEA MDIPARENT) ESTE CÓDIGO FUNCIONA CORRECTAMENTE, CUANDO YO DOY CLIC EN CUALQUIER PARTE DEL FORMULARIO SE OCULTAN LOS MENÚS Y SUBMENÚS, PERO CUANDO YO CONVIERTO ESTE FORMULARIO EN MDIPARENT YA NO OCULTA LOS MENÚS Y SUBMENÚS, HÉ INTENTADO DE TODO Y NOMÁS NADA, LES DEJO EL CÓDIGO, ESPERO ME PUEDAN AYUDAR CON ESTA DUDA, GRACIAS.

Public Class forma

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Label1.Visible = False Then
            Label1.Visible = True
        Else
            Label1.Visible = False
        End If
        If Label2.Visible = False Then
            Label2.Visible = True
        Else
            Label2.Visible = False
        End If
        Label3.Visible = False
        Label4.Visible = False
    End Sub

    Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        Label3.Visible = True
    End Sub

    Private Sub Label2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove
        Label4.Visible = True
    End Sub

    Private Sub forma_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Label1.Visible = False
        Label2.Visible = False
        Label3.Visible = False
        Label4.Visible = False
    End Sub
End Class