Obtener Lista de Caracteres ISO-8859-1

[Freeze.]

Hola aqui veremos como obtener la lista de caracteres:

Agregamos:

1 Textbox:

-Multiline: True
-ScrollsBar: Vertical

Y agregamos este codigo:

Código [Seleccionar] Expandir


'Programado By -Freeze- 01/08/2007
Private Sub Form_Load()
For c = 1 To 255 Step 1
Text1.Text = Text1.Text & " " & Chr(c)
Next c
End Sub



Tambien podemos agregar un ListBox y colocar este code:

Código [Seleccionar] Expandir


'Programado By -Freeze- 01/08/2007
'L = Listbox
Private Sub Form_Load()
For c = 1 To 255 Step 1
L.AddItem Chr(c)
Next c
End Sub


Y listo...

Salu2..!! 8) 8)