Codigo Convertir MAyuscula Minuscula en VB 2005

[Pablo Cesar]

Holas el asunto es el siguiente:
tengo un formaulario donde registro apellidos y nombres un text box por cada uno
lo que quisiera es que engresando texto en el text box de apellidos este se convierta en mayúscula y al ungresar los nombres en el otro text box solo las iniciales de los nombres se conviertan en mayúscula.
ejemplo:
EULOGIO DE LA CRUZ (apellidos)
Pablo César( nombres)

espero que alguien pueda ayudarme gracias.

[seba123neo]

Las propiedades en visual basic clasico para convertir mayusculas a minusculas y viceversa son Ucase y Lcase,ahora en net podes usar UCase o el método ToUpper y al reves seria usar LCase o método ToLower.

saludos.

[Pablo Cesar]

las propiedades que me mandaste me sirvieron mucho ahora se me presento otro problema que es el siguiente :
usando un text box en el cual deberia ingresar los nombres y quisiera saber que evento o método uso para que cuando ingrese un nombre este automaticamente se convierta en mayuscula (las iniciales de los Nombres claro)ejemplo Pablo César
aaa hice un código en son de prueba que haga esto pero me funciona con dos text box y un button el cual en el primero ingreso los nombres , hago clic en el button y en el text box 2 me sale convertido. pero de la manera quwe yo deseo no sale
saludos y gracias por tu respuesta.

[seba123neo]

Hola,mira aca te consegui una funcion para eso que queres,primero escribis el nombre tuyo y despues presiona el enter para confirmar y te pasa las primeras letras de las palabras a mayusculas .

Código:

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim t As String = TextBox1.Text
            Dim i As Integer
            If t <> "" Then
                Mid$(t, 1, 1) = UCase$(Mid$(t, 1, 1))
                For i = 1 To Len(t) - 1
                    If Mid$(t, i, 2) = Chr(13) + Chr(10) Then
                        Mid$(t, i + 2, 1) = UCase$(Mid$(t, i + 2, 1))
                    End If
                    If Mid$(t, i, 1) = " " Then
                        Mid$(t, i + 1, 1) = UCase$(Mid$(t, i + 1, 1))
                    End If
                Next
                TextBox1.Text = t
            End If
        End If
    End Sub

saludos.