关于B语言的问题

代码如此，我做了个进度条，可是我想进度条到100%就执行MsgBox显示文字（"通知"为标题，"成功"为内容）

或者在20%、50%任意一个小于100%的时候就显示MsgBox文字，应该怎样搞呢？

Private Sub Form_Load()
Picture1.ForeColor = vbBlue
Picture1.FontBold = True
Picture1.AutoRedraw = True

End Sub

Private Sub Command100_Click()
Dim i As Long, j As Long
For i = 1 To 20
For j = 1 To 100000
DoEvents
Next
Call Progress(i * 5)

Next
End Sub

Private Sub Progress(percent As Long)
Dim msg As String
msg = percent & "%"
With Picture1
.Cls
Picture1.Line (0, 0)-(percent / 100 * .ScaleWidth, .ScaleHeight), vbGreen, BF
.CurrentX = (.ScaleWidth - .TextWidth(msg)) / 2
.CurrentY = (.ScaleHeight - .TextHeight(msg)) / 2
Picture1.Print msg
.Refresh
End With
End Sub

你好哦。
很高兴看到你的问题。
但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案，那就得恭喜你啦。
可能是你问的问题有些专业了，没人会。或者别人没有遇到或者接触过你的问题，所以帮不了你。建议你去问题的相关论坛去求助，那里的人通常比较多，也比较热心，可能能快点帮你解决问题。
祝你好运~！
希望我的回答也能够帮到你！
谢谢