Visual Basic 6.0 - ProgressBar

Private Sub Timer1_Timer()

If ProgressBar1.Value = "100" Then

MsgBox "Bitti"

Else

ProgressBar1.Value = Val(ProgressBar1.Value) + 10

End If

End Sub