[سعود]

PHP كود :

Public Class Form1
    Dim i As Integer = 0
    Dim itm As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        itm = Val(txtstart.Text)
        Do Until i = Val(txtcount.Text)
            ListBox1.Items.Add(itm)
            i += 1
            itm += 1
        Loop
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MsgBox(ListBox1.Items.Count)
    End Sub
End Class