Private Declare Function DrawCaption Lib "user32.dll" (ByVal hWnd As _
      IntPtr, ByVal hDC As IntPtr, ByRef pcRect As RECT, ByVal un As Int32) As _
      Int32
 
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        SetRect(r, 0, 0, Me.Width, tbarWidth)
        Dim hdc As IntPtr = e.Graphics.GetHdc()
        DrawCaption(Me.Handle, hdc, r, tbarColor)
        e.Graphics.ReleaseHdc(hdc)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist