Deberias entender que el visual basic 6 es muy diferente a los Vb.NET y aqui no entra para nada.
Esta sección es de programacion = codigos.
Puesto que no lo publicas y siendo algo tan sencillo de hacer y para nada seguro acabo de hacer a la rapida un code que tiene la misma funcion que el tuyo (enc-desc) lo dejo por si alguien quiere saber como funciona, aunque es demasiado obvio
Private Sub Command1_Click()
Dim pri As Integer
Dim seg As Integer
Dim car As Integer
Dim cadena As String
pri = 0
seg = 1
For i = 0 To Len(Text1.Text) - 1
Text1.SelStart = pri
Text1.SelLength = seg
car = Asc(Text1.SelText)
cadena = cadena & Chr(car + 14)
pri = pri + 1
seg = seg + 1
Next
Text2.Text = cadena
Text1.Text = ""
End Sub
Private Sub Command2_Click()
Dim pri As Integer
Dim seg As Integer
Dim car As Integer
Dim cadena As String
pri = 0
seg = 1
For i = 0 To Len(Text2.Text) - 1
Text2.SelStart = pri
Text2.SelLength = seg
car = Asc(Text2.SelText)
cadena = cadena & Chr(car - 14)
pri = pri + 1
seg = seg + 1
Next
Text1.Text = cadena
Text2.Text = ""
End Sub
Autor
En línea
[/url]
