大家进来看！！

Question

我编了个程序：点击command1时，显示进度条和label，但是单击command1后，label1才显示出来，这是为什马？？有甚嘛办法可以解决吗？？
具体程序如下：
Private Sub Command1_Click()
ProgressBar1.Visible = True
Label1.Visible = True
Dim i As Integer
For i = 0 To 5000
ProgressBar1.Value = i
Next
ProgressBar1.Visible = False
Label1.Visible = False
End SubPrivate Sub Form_Load()
Form1.WindowState = 2
ProgressBar1.Max = 5000
ProgressBar1.Min = 0
Label1.Caption = "初始化程序"
ProgressBar1.Visible = False
Label1.Visible = False
End Sub

Answer 1

Private Sub Command1_Click()
ProgressBar1.Visible = True
Label1.Visible = True
doevents
Dim i As Integer
For i = 0 To 5000
ProgressBar1.Value = i
doevents
Next
ProgressBar1.Visible = False
Label1.Visible = False
End Sub

Answer 2

将Command1_Click()中的代码放到Command1_MouseDown()中