How to make a progress bar on vb6
if progressbar1.value = 100 then
progressbar1.value = 0
else
progressbar1.value = val(progressbar1.value) + val(1)
end if
label1.caption = progressbar1.value
if progressbar1.value = 100 then
progressbar1.value = 0
else
progressbar1.value = val(progressbar1.value) + val(1)
end if
label1.caption = progressbar1.value