i don't know

Private Sub Command1_Click()
List1.AddItem (Text1.Text)
End Sub