Label ile progressbar yapımı ( vendetta ' )

Private Sub Form_Load()
Timer1.Interval = 10 ' Hızı 10 milisaniye. 
End Sub

Private Sub Timer1_Timer()
Label2.BackColor = &HFF00& ' arkaplan yeşil 
Label2.Caption = Label2.Caption + " " ' captionuna durmadan boşluk eklenicek 
If Label2.Width > 8355 Then ' eğer uzunlugu 8355 olursa
Me.Hide ' beni gizle
Form2.Show ' form2'yi aç
Timer1.Enabled = False ' timer'i durdur
End If 'if kapat .
End Sub

Private Sub Timer1_Timer()
Label1.BackColor = &HFF00& 'label 1 arka plan yeşil
Label1.ForeColor = &HFFFFFF 'label1 yazı rengi beyaz
Label1.Caption = Label1.Caption + "I" 'label1 e I ekle
If Label1.Caption = "IIIIIIIIIIIIIIIIIIIIIIIII" Then 'label1 de 25 tane I olunca

Me.Hide ' beni gizle
Form2.Show ' form2'yi aç
Timer1.Enabled = False
End If
End Sub