StatusBar.Message1= "打开" StatusBar.ProgressBar.Visible =True Dim vl As Double For i As Integer = 1 To 10000 vl = i / 3 If i Mod 100 = 0 Then StatusBar.ProgressBar.Value= i / 10000 * 100 StatusBar.Message2=StatusBar.ProgressBar.Value & "%" End If Next Forms("统计").show