关于随时间变化的进度条的问题！

Question

各位，小弟对VB不是很熟，现在需要用到进度条做一个程序，时间也比较紧。
是这样的，根据初始设置的时间，在设置一个timer控件，当时间变化是，进度条跟着时间变化，当进度条满脸后给出提示，谢谢！
如果有源码的话我愿意加分。十分感谢各位！

Answer 1

Private Sub Form_Load()
Timer1.Interval = 1000
ProgressBar1.Max = 20
ProgressBar1.Min = 0
Timer1.Tag = Int(Timer)
End Sub
Private Sub Timer1_Timer()
L = Int(Timer) - Timer1.Tag
ProgressBar1.Value = L
If ProgressBar1.Value = ProgressBar1.Max Then
MsgBox "时间到了!"
Timer1.Enabled = False
End If
End Sub

Answer 2

没人回答，俺来捡分。
'在窗口上放置一个时度条和一个时间控件
Private Sub Form_Load()
    Me.Timer1.Enabled = False
    Me.ProgressBar1.Value = 0
    Me.ProgressBar1.Min = 0
    Me.ProgressBar1.Max = 60
    Me.Timer1.Interval = 100
    Me.Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
    If Me.ProgressBar1.Value = Me.ProgressBar1.Max Then
        Timer1.Enabled = False
        MsgBox "ʱ¼äµ½£¡"
    End If
End Sub

Answer 3

Dim m%
Private Sub Command1_Click()
Text1.Text = Text1.Text * 60
m = Val(Text1)
End Sub
Private Sub Command2_Click()
ProgressBar1.Min = 0
ProgressBar1.Max = mTimer1.Interval = 1000
End Sub
Private Sub Form_Load()
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()Text1.Text = Text1.Text - 1
ProgressBar1.Value = Text1.Text
End Sub