Private Sub Menu1_Paint(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Menu1.Paint
        Dim p1, p2 As Point
        Dim LB As LinearGradientBrush
 
        p1 = New Point(0, Menu1.Height)
        p2 = New Point(Menu1.Width, Menu1.Height)
 
        LB = New LinearGradientBrush(p1, p2, Color.NavajoWhite, _
          Color.FloralWhite)
        e.Graphics.FillRectangle(LB, 0, 0, Menu1.Width, Menu1.Height)
    End Sub