Private Sub Form_Load() For I = 1 To 4 List1.AddItem I Next I End Sub Private Sub List1_Click() Dim AA As Integer AA = List1.ListCount AA = AA + 1 List1.Clear For I = 1 To AA List1.AddItem I Next I End Sub