简单问题（进度条问题,在线急等)

Question

如何用一个timer控制进度条，要求30秒后进度条满！

Answer 1

Private Sub Form_Load()
    
    Timer1.Interval = 30000
    Timer1.Enabled = True
    
End SubPrivate Sub Timer1_Timer()
    
    ProgressBar1.Value = ProgressBar1.Max
    
End Sub

Answer 2

Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
    ProgressBar1.Max = 30
End SubPrivate Sub Timer1_Timer()
    If ProgressBar1.Value < ProgressBar1.Max Then
        ProgressBar1.Value = ProgressBar1.Value + 1
    End If
End Sub