Estrutura de Repetição

Alguém consegue ver erro nesta estrutura de repetição,: Private Sub Command1_Click() numi = Val(Text1.Text) numf = Val(Text2.Text) For contador = numi To numf List1.AddItem (Str(contador)) Next End Sub Private Sub Command2_Click() End End Sub Está dando o seguinte erro : "error 424" object required e a linha: List1.AddItem (Str(contador)) fica em amarelo Obs: Estou utilizando o XP Professional com o office 2003