how can i exec....

How can i execute certain code if a listbox is full with a certain number of items? Can somebodyplease help me.

Code:

---

Private Sub Command1_Click()

    If List1.ListCount >= 10 Then
        Msgbox ">=10 in the list"
        'execute code
    End If

End Sub

---