loremarmas

xaviz respondió: Así por encima lo que se me ocurre es lo siguiente. Privase Sub Text1_KeyPress(KeyAscci as Integer) If KeyAscii < 97 Or KeyAscii > 122 Then Exit Sub If Text1.SelStart = 0 Then KeyAscii = KeyAscii - 32 End If End Sub