Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        For a = 1 To 255
            ListBox1.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a As Integer
        For a = 65 To 90
            ListBox2.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))

        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim a As Integer
        For a = 97 To 122
            ListBox3.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))

        Next
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim a As Integer
        For a = 48 To 57
            ListBox4.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))

        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Application.Exit()
    End Sub
End Class

sayın halisnemkid
örnek ve açıklamanızı da eklerseniz daha iyi olacaktır.

bilgilendirme olması adına;

konuya yönelik mevcut kodların haricinde ilgili kodların örneğinin yer aldığı bağlantı,
aşağıdaki konunun 19.mesajında yer almaktadır.

Çoklu Tablolar İle Çalışmak (Ana Tablo & Yavru Tablo)

son olarak;
Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte,
lütfen,herhangi bir kategoride (konu üzerine) örnek çalışma ekleme durumunuz olduğunda,
hem ayrıntılı açıklama yazınızı ve örnek uygulamanızı eklemeyi ihmal etmeyiniz.teşekkürler.

bilginize...iyi çalışmalar,saygılar.