Imports System.Drawing
Imports System.Windows.Forms
 
Public Class mnuRenderer
   Inherits ProfessionalColorTable
 
   Public Overrides ReadOnly Property ToolStripGradientBegin() As _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Gray)
      End Get
   End Property
 
   Public Overrides ReadOnly Property ToolStripGradientMiddle() As _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Silver)
      End Get
   End Property
 
   Public Overrides ReadOnly Property ToolStripGradientEnd() As _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Gainsboro)
      End Get
   End Property
 
   Public Overrides ReadOnly Property ImageMarginGradientBegin() As  _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Gray)
      End Get
   End Property
 
   Public Overrides ReadOnly Property ImageMarginGradientMiddle() As  _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Silver)
      End Get
   End Property
 
   Public Overrides ReadOnly Property ImageMarginGradientEnd() As  _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Gainsboro)
      End Get
   End Property
 
   Public Overrides ReadOnly Property ButtonSelectedGradientBegin() As  _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Gray)
      End Get
   End Property
 
   Public Overrides ReadOnly Property ButtonSelectedGradientEnd() As  _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Silver)
      End Get
   End Property
 
   Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As  _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Gray)
      End Get
   End Property
 
   Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As  _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Silver)
      End Get
   End Property
 
   Public Overrides ReadOnly Property MenuBorder() As System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.ControlDarkDark)
      End Get
   End Property
 
   Public Overrides ReadOnly Property MenuItemBorder() As System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.DarkGray)
      End Get
   End Property
 
   Public Overrides ReadOnly Property MenuStripGradientBegin() As  _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Silver)
      End Get
   End Property
 
   Public Overrides ReadOnly Property MenuStripGradientEnd() As  _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.LightGray)
      End Get
   End Property
 
   Public Overrides ReadOnly Property MenuItemSelected() As System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Moccasin)
      End Get
   End Property
 
   Public Overrides ReadOnly Property ToolStripDropDownBackground() As _
     System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.Gainsboro)
      End Get
   End Property
 
   Public Overrides ReadOnly Property SeparatorDark() As System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.DarkGray)
      End Get
   End Property
 
   Public Overrides ReadOnly Property SeparatorLight() As System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.LightGray)
      End Get
   End Property
 
   Public Overrides ReadOnly Property ToolStripBorder() As System.Drawing.Color
      Get
         Return Color.FromKnownColor(KnownColor.DarkGray)
      End Get
   End Property
 
End Class

Imports sForms = System.Windows.Forms
...
...
   Private Sub MainWindow_Loaded(ByVal sender As Object, ByVal e As _
     System.Windows.RoutedEventArgs) Handles Me.Loaded
      sForms.ToolStripManager.Renderer = New _
      sForms.ToolStripProfessionalRenderer(New mnuRenderer)
   End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control