Public Class Form1
 
   Private tsControlHost As ToolStripControlHost
   Private WithEvents tsCombo As New ComboBox
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      With tsCombo
         .Items.AddRange(New Object() {"Eins", "Zwei", "Drei"})
         .SelectedIndex = 0
         .Dock = DockStyle.Fill
      End With
 
      tsControlHost = New ToolStripControlHost(tsCombo)
      Me.ToolStrip1.Items.Add(tsControlHost)
   End Sub
 
   Private Sub ToolStrip1_Paint(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.PaintEventArgs) Handles ToolStrip1.Paint
      tsControlHost.Size = New Size(Me.ToolStrip1.Width - 20, tsCombo.Height)
   End Sub
 
End Class

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