Testar funcao da 1ª letra maiuscula

[esquima]

alguem pode testar esta função e tentar me ajudar como e que faço uma alteraçao nela

o problema e que ela mete a 1ªletra maiscula, so que se eu quiser alterar algumas letras no meio de uma palavar ela so me altera 1 e mete logo o cursor no fim da palavra..

vou deixar aqui o codigo..fica dentro do evento textchanged de uma text box

'mete a primeira letra maiuscula na 1ª palavra
        Dim txb As New TextBox
        txb = sender

        If Not String.IsNullOrEmpty(txb.Text.Trim) Then
            Dim s As String = ""
            s = Char.ToUpper(txb.Text.Chars(0))
            txb.Text = s + txb.Text.Substring(1)
            txb.Select(txb.TextLength, 1)
        End If

[Joca]

Vê se serve (só acrescentei "ToString" e modifiquei o cabeçalho do "If..End if") :

'mete a primeira letra maiuscula na 1ª palavra     
        Dim txb As New TextBox
        txb = sender
        If txb.Text <> "" Then


            Dim s As String = ""
            s = Char.ToUpper(txb.Text.Chars(0))
            txb.Text = s + txb.Text.Substring(1).ToString
            txb.Select(txb.TextLength, 1)

        End If

[esquima]

nao da..continua a acrescentar o cursor no fim das palavras...so da para alterar 1 letra no meio de uma palavra, dps mete logo o cursor no fim

[Tiago Salgado]

esquima, experimenta guardar a posição do cursor antes de executares esse código, e dps voltas a posiciona-lo nessa posição guardada.