在這里我列出思路.

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