' linken Rand festlegen
            Dim pbarLeft As Integer
            pbarLeft = p.X + Me.StBar1.Panels(0).Width + _
            Me.StBar1.Panels(1).Width
 
            ' Position festlegen
            pbar.Location = New Point(1, 3)
            pbar.Height = StBar1.Height - 3
            pbar.Width = StBar1.Panels(0).Width - (pbar.Location.X * 2)
            pbar.Step = 2

VB@rchiv its the Best