• We need your support!

    We are currently struggling to cover the operational costs of Xtremepapers, as a result we might have to shut this website down. Please donate if we have helped you and help make a difference in other students' lives!
    Click here to Donate Now (View Announcement)

XtremePapers

Experienced One
Experienced One
Program Task: List Numbers From 1 To 10 Via “FOR”...“NEXT” Loop


Dim time As Integer

Private Sub Command1_Click()
For time = 1 To 10
List1.AddItem (time)
Next time
End Sub

Private Sub Command2_Click()
List1.Clear
End Sub

Private Sub Command3_Click()
Unload Me
End Sub
Top