Sub MoveProgressBarIntoPanel _
(pb As ProgressBar, _
sb As StatusBar, _
pnlIndex As Integer)
    ' Angaben in Pixel !
    ' Sonst Umrechnung von deltay !
    Dim deltaY As Single, pnl As Panel, Y As Single
    deltaY = pb.Parent.ScaleY(5, vbPixels, vbPixels)
    Set pnl = sb.Panels(pnlIndex)
    pnl.Bevel = sbrInset
    Y = pb.Parent.ScaleHeight - sb.Height
    pb.Move pnl.Left + 4, Y + deltaY, _
    	    pnl.Width - 8, sb.Height - deltaY - 3
    pb.ZOrder
 
End Sub

Private Sub Form_Resize()
    Call MoveProgressBarIntoPanel(ProgressBar1, StatusBar1, 2)
End Sub