Udskrive samtlige ascii-koder i text1.text

for i = 0 to hvormange_der_nu_er
text1.text = text1.text & i & \"=\" & chr(i)
next i

for i = 0 to hvormange_der_nu_er
text1.text = text1.text & i & \"=\" & chr(i) & \" \"
next i 

hmmm - jeg er åbenbart for langsom.. :)

Private Sub Command1_Click()
  Dim i As Integer
  For i = 0 To 255
    Text1.Text = Text1.Text & i & \" = \" & Chr(i) & vbCrLf
  Next i
End Sub

textbox1.multiline = true
textbox1.scrollbars = 2 - vertical

Tak, begge to.
Kaffe skal have lidt for redigeringen.

takker :)

takker for pts:)