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.