Moshkel dar add Flood (vb6,bia to)

Salam.dostan dar barname nevisi be zeban vb6 be ye moshkel barkhordam(to ye list tedadi id hast,Chetor be id hay dakhel list add flood bdam va sepas remove shan)
feqat hemin qad tozih lazeme baqyash beladam.plz harki midune  bgee :-D
Ya Hagh.

boro to qesmte vb6 add flood reza ro dl k.o.n yeki dg ham hast az un yad migri

run-time error '424':
object required

in error mide

bow in kari nadare chera khodeto aziyat mikoni eqad   

Code:

Private Sub start_Click()
On Error Resume Next
Dim ids() As String
Dim i As Integer
ids = Split(Text1.Text, "#")
List1.Clear
For i = LBound(ids) To UBound(ids)
List1.AddItem ids(i)
Next i
Timer1.Enabled = True
End Sub