Döngü kurmasını malesef bilmiyorum!

[harziyan]

Aşağıdaki kodlarım muntazaman çalışan kodlarım ama işlem süresi dosyam büyüdükçe uzamaya başladı. Acaba bu kodları döngüye çevirebilir misiniz?

If CheckBox10 = True Then CheckBox10.ControlTipText = "Kayıt Tarihi: " & ListBox1.Column(34) Else CheckBox10.ControlTipText = ""
If CheckBox11 = True Then CheckBox11.ControlTipText = "Kayıt Tarihi: " & ListBox1.Column(35) Else CheckBox11.ControlTipText = ""
If CheckBox12 = True Then CheckBox12.ControlTipText = "Kayıt Tarihi: " & ListBox1.Column(36) Else CheckBox12.ControlTipText = ""
If CheckBox13 = True Then CheckBox13.ControlTipText = "Kayıt Tarihi: " & ListBox1.Column(37) Else CheckBox13.ControlTipText = ""
If CheckBox15 = True Then CheckBox15.ControlTipText = "Kayıt Tarihi: " & ListBox1.Column(38) Else CheckBox15.ControlTipText = ""
If CheckBox16 = True Then CheckBox16.ControlTipText = "Kayıt Tarihi: " & ListBox1.Column(39) Else CheckBox16.ControlTipText = ""

 

[Korhan Ayhan]

Aşağıdaki kodu deneyin.

For X = 10 To 16
    If Controls("CheckBox" & X) = True Then
        Controls("CheckBox" & X).ControlTipText = "Kayıt Tarihi: " & ListBox1.Column(X + 24)
    Else
        Controls("CheckBox" & X).ControlTipText = ""
    End If
Next

 

[harziyan]

Sabret, çünkü Allah, ‘iyilik yapan, iyi harekette bulunan’ların mükâfatını zâyi etmez... (11/Hûd,115)
Korhan Hocam, Allah yaptığınız bunca iyilikleri karşılıksız bırakmasın İnşallah.
Hayırlı Geceler.