Loop Assignment 1

 Public Class Form1
  
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  
     Dim plus As Integer
  
     Dim int As Integer
  
     Dim dig As Integer
  
     plus = CInt(TextBox1.Text)
  
     dig = 0
  
     For int = 1 To plus
  
       dig = dig + 1
  
       ListBox1.Items.Add(dig)
  
     Next
  
   End Sub
  
 End Class