BasicLoopRevision.vb

Public Class Form1
    ' Form Controls: TextBox TxtLower, TextBox TxtLimit, Button BtnExe, ListBox LstItems
 
    Private Sub BtnExe_Click(sender As System.Object, e As System.EventArgs) Handles BtnExe.Click
        Try
            Dim l0 As Integer = CInt(TxtLower.Text)
            Dim l1 As Integer = CInt(TxtLimit.Text)
            LstItems.Items.Clear()
            For i As Integer = l0 To l1
                LstItems.Items.Add(i)
            Next
        Catch ex As Exception
            MsgBox("Error: Invalid limits")
        End Try
 
    End Sub
End Class