显示系统的进度用啥控件？

Question

就像在网上打开flash一样，显示进度

Answer 1

progressbar 控件，分别给 min,max,value 属性赋值

Answer 2

工程--->部件--->Microsoft Windows Common Controls 6.0progressbar 控件Private Sub Command1_Click()
    ProgressBar1.Min = 0
    ProgressBar1.Max = 100
    ProgressBar1 = 0
    For J = 1 To 100
        For I = 1 To 10000
            DoEvents
        Next I
        
        ProgressBar1.Value = J
    NextEnd Sub

Answer 3

progressbar 控件Private Sub Command1_Click()
    ProgressBar1.Min = 0
    ProgressBar1.Max = 100
    ProgressBar1 = 0
    For J = 1 To 100
        For I = 1 To 10000
            DoEvents
        Next I
        
        ProgressBar1.Value = J
    NextEnd Sub