在這里我列出思路.

1.拖放一狀態欄控件到表單上.
2.在form_load或new事件中加入
        Dim a As ProgressBar = New ProgressBar()
        a.Left = StatusBar1.Panels(0).Width + 1
        a.Height = StatusBar1.Height - 2
        a.Width = StatusBar1.Panels(1).Width
        '當然你有兩個panel,否則你就更改一個height.width,left的位置吧
        a.Top = 2.5
        a.Value = 0
        a.Name = "OBar"
        StatusBar1.Controls.Add(a)
        a.BringToFront()
        a.Visible = False