Someone help me with my listbox/textbox dilemna's?

[HeSaidJoe]

Private Sub Form_Load()
For i = 1 To 10
List1.AddItem i
Next i
Text1.Text = ""
End Sub

Private Sub List1_Click()

Text1.Text = Text1.Text & List1.Text & vbCrLf
List1.RemoveItem List1.ListIndex

End Sub