приспичило мне вот прогу написать. и хочется её красивенькой такой сделать. и не взлюбил я менюшки стандартные.
но узрел я свойство OwnerDraw. после рытья в мсдне я понял, как его юзать, да вот не могу понять, как при селекте нарисовать свой бэкграунд (как в вижл студио). а то при ОунерДрове менюха ваще не выделяется, как-то эт самому надо..
если у кого есть код прорисовки своего бэкграунда при выделении меню - киньте плз

Код

Private Const FONT_NAME As String = "Times New Roman" Private Const FONT_SIZE As Single = 12 Private Const FONT_STYLE As FontStyle = FontStyle.Bold Private Const MENU_CAPTION As String = "Say Hi" ' Tell Windows how big to make the menu item. Private Sub mnuFileSayHi_MeasureItem(ByVal sender As _     System.Object, ByVal e As _     System.Windows.Forms.MeasureItemEventArgs) Handles _     mnuFileSayHi.MeasureItem     ' Create the font we will use to draw the text.     Dim menu_font As New Font( _         FONT_NAME, FONT_SIZE, FONT_STYLE)     ' See how big the text will be.     Dim text_size As SizeF = _         e.Graphics.MeasureString(MENU_CAPTION, menu_font)     ' Set the necessary size.     e.ItemHeight = text_size.Height     e.ItemWidth = text_size.Width End Sub ' Draw the menu item. Private Sub mnuFileSayHi_DrawItem(ByVal sender As _     System.Object, ByVal e As _     System.Windows.Forms.DrawItemEventArgs) Handles _     mnuFileSayHi.DrawItem     ' Create the font we will use to draw the text.     Dim menu_font As New Font( _         FONT_NAME, FONT_SIZE, FONT_STYLE)     ' See if the mouse is over the menu item.     If e.State And DrawItemState.Selected Then         ' The mouse is over the item.         ' Draw a shaded background.         Dim clr As Double         Dim dclr As Double         Dim Y As Long         clr = 255         dclr = 128 / e.Bounds.Height         For Y = 0 To e.Bounds.Height - 1             e.Graphics.DrawLine( _                 New Pen(Color.FromArgb(clr, 0, 0)), _                 e.Bounds.X, Y, e.Bounds.X + e.Bounds.Width, _                     Y)             clr -= dclr         Next Y         ' Draw the text.         e.Graphics.DrawString(MENU_CAPTION, menu_font, _             System.Drawing.Brushes.AliceBlue, _             e.Bounds.X, e.Bounds.Y)     Else         ' The mouse is not over the item.         ' Erase the background.         e.Graphics.FillRectangle( _             System.Drawing.Brushes.LightGray, _             e.Bounds.X, e.Bounds.Y, _             e.Bounds.Width, e.Bounds.Height)         ' Draw the text.         e.Graphics.DrawString(MENU_CAPTION, menu_font, _             System.Drawing.Brushes.Black, _             e.Bounds.X, e.Bounds.Y)     End If End Sub

с исходниками.
http://www.codeproject.com/cs/menu/MhOffice2003Menus.asp