Untitled

  
        'If intCounter is less than or equal to intN2, then...
        Do While (intCounter <= intN2)
            
            'Increments the multiple
            intMulti = intMulti + intN1
            
            'Adds multiple to list
            lstMulti.AddItem (CStr(intMulti))
            
            'Increments counter
            intCounter = intCounter + 1
            
        'Repeat untill condition is met
        Loop
        
        'Clears text boxes
        txtN1 = ""
        txtN2 = ""
    
    'Ends if statement
    End If