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)