用VB做一个简单的安装进度条，但是百分比显示老是出错。

Question

我是菜鸟，我已经做了一个，但是百分比老是会超过100％，我的做法是用两个label控件，一个为背景，有固定长度，一个加了蓝背景颜色，初始长度定义为10（想设置成1的，但是会自动变成15。）运行时改变蓝背景的label长度，显示进度。用了timer控件。
百分比我用了label3来显示百分数。程序我贴在下面，但是运行到结束时，不是正好100％，会超过，有时102％等。可能变量设置或其他方面有问题。请高手帮我纠正一下。最好在我的程序基础上改。谢谢！

Option Explicit
Dim a As Integer

Private Sub Command1_Click()
a = 120
End Sub

Private Sub Timer1_Timer()
If Label2.Width = Label1.Width Then
Print MsgBox("你好")
End
End If

If Label2.Width < Label1.Width Then
Label2.Width = Label2.Width + a
Label3.Caption = Format$(CLng(((Label2.Width + a) /Label1.Width) * 100)) + "%"
End If

If Label2.Width > Label1.Width Then
Label2.Width = Label1.Width
End If

就这些代码。小弟万分感激！

Answer 1

Dim stepd As Double
Dim dd As Integer
Private Sub Form_Load()
ll.Left = pp.Left
ll.Width = 0
ll.Height = 200
stepd = pp.Width / 100
dd = 0
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If dd = 100 Then
MsgBox "OK", , ":)"
Timer1.Enabled = False
Exit Sub
End If
ll.Width = ll.Width + stepd
dd = dd + 1
jd.Text = dd
End Sub
'll,pp为两个label控件,jd为一个文本框