Imprimir Página - Obtener Lista de Caracteres ISO-8859-1

Hola aqui veremos como obtener la lista de caracteres:

Agregamos:

1 Textbox:

-Multiline: True
-ScrollsBar: Vertical

Y agregamos este codigo:

Código:

'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:

'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) :o :o :P :)

Foro de elhacker.net