我如何在avast 9应用程序的面板中实现弹出窗口

Question

如何在面板中实现类似于avast 9应用程序的弹出窗口。 我能够实现控制，但问题是控制保持打开，直到鼠标悬停在控制区域之外。 代码是：

 Private Sub btnCourseRegistration_MouseHover(sender As Object, e As EventArgs) Handles btnCourseRegistration.MouseHover
        TabControlSubMenu.Visible = True
        TabControlSubMenu.SelectedTab = TabPageCourseRegistrationSubMenu

    End Sub

    Private Sub btnCourseRegistration_MouseLeave(sender As Object, e As EventArgs) Handles btnCourseRegistration.MouseLeave

        If TabControlSubMenu.Focused = False Then
            TabControlSubMenu.Visible = False
        Else
            TabControlSubMenu.Visible = True
        End If
    End Sub

    Private Sub TabControlSubMenu_MouseLeave(sender As Object, e As EventArgs) Handles TabControlSubMenu.MouseLeave
        TabControlSubMenu.Visible = False
    End Sub.