Private Sub Command1_Click()
Do While i <= 10
List1.AddItem (i)
i = i + 1
Loop
End Sub