اولا اخي قم باضافة زر وضع الكود التالي
Timer1.Start()
قم باضافة تايمر وقم يوضع الكود التالي
ProgressBar1.Increment(10)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
msgbox(" تم اضافة النقود بنجاح")
end if