摘要： Sub 进度条() Dim rowTotal As Integer rowTotal = 100 For i = 1 To rowTotal Step 1 prgramBarShow.Show 0 prgramBarShow.lblProgress.Width = prgramBarShow.lbl 阅读全文