Ascii kodlarını textbox a yazdıracağız. Formunuza 1 adet textbox ekleyin.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim x, y As String
      Dim i As Integer
      TextBox1.Clear()
      TextBox1.Font = New System.Drawing.Font("Courier New", 12, FontStyle.Regular)
      For i = 32 To 255
        x = i.ToString
        y = Chr(i)
        TextBox1.Text = TextBox1.Text & "chr(" & x & ")=" & y & Space(5)
        If (i - 31) Mod 7 = 0 Then
          i = i + 1
        End If
      Next i
    End Sub
End Class