vb进度条进度大于一个指定百分比值时能弹出提示代码

Private Sub Command1_Click()
ProgressBar1.Tag = 0 '设置只提醒一次的标志
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0

For i = 1 To 500

DoEvents

If i Mod 5 = 0 Then ProgressBar1.Value = ProgressBar1.Value + 1 '给进度条的进度赋值

If ProgressBar1.Value > (ProgressBar1.Max - ProgressBar1.Min) * 0.8 And ProgressBar1.Tag = 0 Then
MsgBox "进度超过百分之八十了"
ProgressBar1.Tag = 1
End If

Next

End Sub

你可以在设置进度条的value属性或调用PerformStep方法的后面加入如下代码
if ProgressBar1.value> 指定值 then
msgbox（“。。。。”）
.....
....
end if