在里我列出思路.

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
Bg6HTML5中文学习网 - HTML5先行者学习网
Bg6HTML5中文学习网 - HTML5先行者学习网