Timer1.Tick

Progressbar1.Value += 1
if Progressbar1.Value = _
Progressbar1.Maximum then
Timer1.Stop <- Nicht vergessen !
end if