O Ne Biçim Kod

Buyur 1 Tane Timer Ve Progresbar Ekle bide form2 yi eklle
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1 + 1
If ProgressBar1.Value = "100" Then
form2.show
End If
End Sub
Private Sub Form_Load()
ProgressBar1.Value = "0"
ProgressBar1.Min = "0"
ProgressBar1.Max = "100"
Timer1.Interval = "5"
ProgressBar1.Scrolling = xtpProgressBarSmooth
End Sub