'Private Sub Command1_Click()
'List1.AddItem Text1
'For i = 0 To Combo1.ListCount - 1
'List1.AddItem Combo1.List(i)
'Next
'End Sub
Private Sub Command1_Click()
List1.AddItem Text1
List1.AddItem Combo1.Text
End Sub
dim a() as string
a=split(text,vbCrLf)
for i = 0 to ubound(a) - 1
list.additem i
next