Private Sub ToolStripMenuItem1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.MouseEnter
DirectCast(sender, ToolStripMenuItem).ShowDropDown()
End Sub
Private Sub ToolStripMenuItem1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Boulanger.MouseLeave
DirectCast(sender, ToolStripMenuItem).HideDropDown()
End Sub