Private Sub Form_Click () Dim Entry, I, Msg ' Declare variables. Msg = "Choose OK to add 100 items to your list box." MsgBox Msg ' Display message. For I = 1 To 100 ' Count from 1 to 100. Entry = "Entry " & I ' Create entry. List1.AddItem Entry ' Add the entry. Next I Msg = "Choose OK to remove every other entry." MsgBox Msg ' Display message. For I = 1 To 50 ' Determine how to List1.RemoveItem I ' remove every other Next I ' item. Msg = "Choose OK to remove all items from the list box." MsgBox Msg ' Display message. List1.Clear ' Clear list box. End Sub