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

Option Explicit

Private Sub cmdStart_Click()
    Dim x As Integer
    
    x = 1
    Do While x < 16
        txtOutput = txtOutput & Str(x) & Chr(13)
        x = x + 1
    Loop
End Sub

Private Sub cmdEnd_Click()
    End
End Sub