'***************************************************** 'This stuff is for the form - VB sets it up. '***************************************************** VERSION 5.00 Begin VB.Form Form1 Caption = "Print the next 10 numbers ..." ClientHeight = 1965 ClientLeft = 60 ClientTop = 345 ClientWidth = 3975 LinkTopic = "Form1" ScaleHeight = 1965 ScaleWidth = 3975 StartUpPosition = 3 'Windows Default Begin VB.CommandButton cmdDone Caption = "Done" Height = 375 Left = 2520 TabIndex = 2 Top = 240 Width = 615 End Begin VB.TextBox Text1 Height = 405 Left = 1680 TabIndex = 1 Top = 240 Width = 495 End Begin VB.Label Label2 Height = 495 Left = 360 TabIndex = 3 Top = 960 Width = 3375 End Begin VB.Label Label1 Caption = "Enter a number:" Height = 255 Left = 240 TabIndex = 0 Top = 360 Width = 1215 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False '*********************************************************** 'THE PROGRAM STARTS HERE '*********************************************************** Option Explicit Private Sub cmdDone_Click() Dim i As Integer Dim num As Single num = Val(Text1.Text) ' force the input to be numeric For i = 1 To 10 Label2 = Label2 & num + i & " " Next i End Sub