Hola amigos, escribo este post para decir mas que nada una estupidez pero...
porque no usas este codigo que es mas sencillo:
Private Sub Command1_Click()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
End Sub
Bueno es mas chapuza pero funciona bien y nunca falla

Espero que te sirva hahah
PD: El codigo de WarGhost si me funciono...
Salu2
Ranslsad