Toplu Textbox Biçimlendirme Hk

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        TextBox1.Text = StrConv(TextBox1.Text, vbProperCase)

        TextBox1.SelectionStart = Len(TextBox1.Text)

    End Sub

Bu kod ile Textbox1 e girilen verilerin ilk harflerini büyük yapabiliyorum.
Ben bunu her textbox için yazmak istemiyorum, çünkü çok textbox var. textboxların numaralarını yazıp (Textbox1,Textbox2,Textbox3 vs..vs..vs.) bunları toptan şu kodu uygula diyebilirmiyiz.
Teşekkürler

vb 6 kullanıyorum.vb.net hakkında bilgim yok ama textboxları, ilk textbox ın kpyası şeklinde oluştursan daha kolay olurdu. yani textbox1,textbox2 şeklinde degilde, textbox1(0),textbox1(1) vb şeklinde form üzerinde oluşturma gibi bir durum oluyor mu vb.nette. for döngüsüyle yapabilirsin. örnek: textbox1(i) şeklinde.

Değişiklik yapmak istediğiniz textboxların .tag özelliğine örn:2122 yazıp

   Private Sub IlkHarfiBuyukYap()

        Dim ctl

        For Each ctl In Me.Controls

            If TypeOf ctl Is TextBox Then

                If ctl.Tag = 2122 Then

                    ctl.Text = StrConv(ctl.Text, vbProperCase)

                    ctl.SelectionStart = Len(ctl.Text)

                Else

                End If

            Else

            End If

        Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call IlkHarfiBuyukYap()

    End Sub

şeklinde bir çözüm kullanabilirsiniz.

Dim textler(10) As Object

        textler(0) = TextBox1

        textler(1) = TextBox2

        textler(2) = TextBox3

        textler(3) = TextBox4

        textler(4) = TextBox5

        textler(5) = TextBox6

        textler(6) = TextBox7

        textler(7) = TextBox8

        textler(8) = TextBox9

        textler(9) = TextBox10

    Dim i As Integer

        For i = 0 To 13

   textler(i).Text = StrConv( textler(i).Text, vbProperCase)

        textler(i).SelectionStart = Len( textler(i).Text)    

 Next i

şöylede bi kullanım var ama şöyle olur tek butonla mesala 10textboxa bu işlemi yaptırmak gibi


yada en mantıklısı şu şekilde sanırım ayhan beyin kodu yazdıktan sonra tüm textboxların içine sadece IlkHarfiBuyukYap yazarsan tek tek olur textlere harf girilidğinde

Private Sub BasHarfleriBuyukYaz(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Dim kontrol As TextBox = CType(sender, TextBox)

        kontrol.Text = StrConv(kontrol.Text, VbStrConv.ProperCase)

        kontrol.SelectionStart = Len(kontrol.Text)

    End Sub

Projeninn load kısmına

AddHandler TextBox1.TextChanged, AddressOf BasHarfleriBuyukYaz

Sorunu böyle çözdüm...