21/05/2003, 10:11
|
 | | | Fecha de Ingreso: abril-2001
Mensajes: 125
Antigüedad: 23 años, 11 meses Puntos: 0 | |
| Hola:
Private Sub btnTransforma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTransforma.Click
Dim cadena As String = txtCadena.Text
txtCadena.Text = UCase(Mid(cadena, 1, 1)) + Mid(cadena, 2, Len(cadena))
End Sub
saludos!! |