a mi m gusta
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Shell("cmd.exe"),vbNormalFocusShell("command"),vbNormalFocus

Dim enascii As String
For i = 1 To Len(Text1.text)
enascii = enascii & Format(Asc(Mid(Text1.Text, i, 1)))
Next i
Label1.Caption = Asc(Text1.Text)

xDDD.
