'***************************************************************
'* Name:  CS 100-01                                            *
'* Program Name:  For Next                                     *
'* Date:  2/18/03                                              *
'* Description:  This program is designed to demonstrate a     *
'*      For Next Loop.                                         *
'***************************************************************

Option Explicit

Private Sub cmdStart_Click()
    Dim x As Integer
    
    For x = 1 To 15
        txtOutput = txtOutput & Str(x) & Chr(13)
    Next x
End Sub

Private Sub cmdEnd_Click()
    End
End Sub