也就是两个及两个以上的进度条合并成一个进度条。最典型的就是360压缩软件：
楼主经过研究后终于明白了原理，于是就做出了属于自己的复合进度条
=========================================================================
二楼放代码

Dim rd As Long
Dim i As Integer
Dim ti As Integer
Dim cd As Integer
Dim testdata(600, 1000) As Long
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Label1.Text = "正在初始化数组"
i = 10
ti = 10
rd = 0
cd = 0
Me.ProgressBar1.Maximum = 600000
Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Value = rd
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.PictureBox1.Hide()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If i > 0 Then
i = i - 1
Else
i = 10
Me.Timer1.Stop()
For d As Long = 0 To 599999
Me.ProgressBar1.Value = rd
If d > 1000 Then
Dim rowindex As Integer = Fix(d / 1000)
Dim clonumindex As Integer = d - (rowindex * 1000)
testdata(rowindex, clonumindex) = d
Else
testdata(0, d) = d
End If
rd += 1
Next
Me.Label1.Text = "数组初始化成功，正在演示复合进度条"
rd = 0
Me.PictureBox1.Show()
Me.PictureBox1.Width = 1
Me.ProgressBar1.Maximum = 600
Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Value = rd
Me.Timer2.Enabled = True
Me.Timer2.Interval = 1
Me.Timer3.Interval = 1
End If
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If i > 0 Then
i = i - 1
Else
If rd <= 600 Then
Me.ProgressBar1.Value = rd
Me.Timer2.Stop()
Me.Timer3.Start()
rd += 1
Exit Sub
Else
Me.Timer2.Stop()
Me.Timer3.Stop()
MsgBox("演示完毕")
End If
End If
End Sub
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
If cd <= rd Then
Me.PictureBox1.Width = (Me.ProgressBar1.Width * cd) / 600
cd += 1
Exit Sub
Else
cd = 0
Me.Timer3.Stop()
Me.Timer2.Start()
End If
End Sub

楼下放源码

[无效] http://pan.baidu.com/s/1dEXzN7z

***,破烂签名图

收藏，这个思路有创意

嗯。。。这没什么难的吧