Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
  Static Working As Boolean = False
  If Working Then Exit Sub
 
  With TextBox1
    Dim selStart As Integer = .SelectionStart
    Working = True
    .Text = StrConv(.Text, VbStrConv.ProperCase)
    .SelectionStart = selStart
    Working = False
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de