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

Option Explicit

Private Sub cmdStart_Click()
    Dim row As Integer
    Dim col As Integer
    
    For row = 1 To 9
        For col = 0 To 15 Step 3
            txtOutput = txtOutput & "Row" & Str(row) & ", Col" & Str(col) & "     "
        Next col
        txtOutput = txtOutput & Chr(13)
    Next row
End Sub

Private Sub cmdEnd_Click()
    End
End Sub