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