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...