Private Sub Command1_Click()Dim i As LongList1.ClearFor i = 0 To 9List1.AddItem Txt(i)Next iEnd Sub
Private Sub Command1_Click()List1.AddItem Text1.TextList1.AddItem Text2.TextList1.AddItem Text3.TextList1.AddItem Text4.TextEnd Sub
for x=1 to 4 doList1.AddItem Text(x).Textnext x