for next dongusunda hata

[mustafasucu]

Merhaba arkadaşlar, ekte dosyadan çalıştırdığınızda hatayı görebilirsiniz. İç içe for next dongusunde hata almaktayım. Yardımlarınız için teşekkürler.

 

[Mehmet Şahin]

Aşağıdaki şekilde deneyiniz. Kolay gelsin.

For t = 0 To aa - 1
    For f = 0 To bb - 1
        If ListBox2.List(t) = ListBox1.List(f) Then
            ProgressBar1.Value = t
            TextBox3 = t
        End If
    Next f
Next t

 

[mustafasucu]

Teşekkürler.