Forma 1 Adet Progress Bar 1 Adet Timer ve !adet command Buton ekleyin.
Timer ınterval 1000 enabled false yapın ve kodu forma yapıştırın.

PHP Code:
Option Explicit

Dim max As Integer
Dim value As Integer

Private Sub Command1_Click()
max = InputBox("Maximum Hız Nekadar Olsun?", "Max")
value = InputBox("Value Girin Maxla Aynı Olsun", "Value")

Timer1.Enabled = True
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
ProgressBar1.max = max
ProgressBar1.value = Int(ProgressBar1.value) + value
If ProgressBar1.value >= ProgressBar1.max Then
MsgBox "Geri!"
End If
End Sub


Alıntı değil kendi emeğimdir. Lutfen Alıntı Yapmayın İsteyen Rep verebilir.
__________________