Private Sub Command1_Click() Dim n As Integer n = Text1 k = 0 While k < 100 If n Mod 7 = 0 Then n = n + 1 k = k + 1 List1.AddItem n n = n + 1 WendEnd Sub
