Option Strict On Option Explicit On Public Class frmMain Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click Dim n, s As Double n = CDbl(txtN.Text) s = CDbl(txtS.Text) lstIValues.Items.Clear() 'Uses the user's input to determine the terminating value (n) and step value (s) For i As Double = 0 To n Step s 'Adds i to the list lstIValues.Items.Add(i) Next End Sub End Class