[3booody]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim str As String = TextBox1.Text
       For i As Integer = 0 To 100 ' من صفر الى مئة
           Application.DoEvents()
           ListBox1.Items.Add(str & Format(i, "000"))
       Next
   End Sub