怎么用Label做进度条 ？
怎么按百分比填充Label ？

Private Sub Form_Load()
Label1.Width = 0
Label1.BackColor = vbRed

End Sub

Private Sub Timer1_Timer()
Label1.Width = Label1.Width + 100
If Label1.Width = 3000 Then
Timer1.Enabled = False
End If
End Sub

楼主问的就是怎么用label自己实现Progress Bar嘛