Onaylı Üye
Öncelikle Forma 1 ProgressBar 1'De Timer Ekleyin. Timer'in intervalini 1000 yapın
Sonra form load a şu kodu ekleyin
Timer'in Koduna ise:
Sonra form load a şu kodu ekleyin
Kod:
Timer1.StartTimer'in Koduna ise:
Kod:
If ProgressBar1.Value = 100 Then
MsgBox("İşlem Tamam",vbInformation,"Mesaj")
Else
ProgressBar1.Value += 1
End If