اضافه کردن سطرهای TextBox در ListBox

[mmssoft]

سلام به همه دوستان
من توی فرمم یک TextBox دارم که مثلا 100+ تا سطر داره. می خوام هر کدوم از این سطرها به صورت یک آیتم به ListBox اضافه بشن. با چه کدی می تونم این کار رو انجام بدم؟

[Saman_12]

List.Clear

Dim Str() As String, NewStr
Str = Split(Text.Text, vbCrLf)

For Each NewStr In Str

List.AddItem (NewStr)
Next

[mmssoft]

ممنون دوست عزیز
حالا یه سوال دیگه. با چه کدی می تونیم تعداد آیتم های یک ListBox رو بشماریم و اگر از یک مقدار بیشتر بود، اضافی ها رو از لیست حذف کنیم؟؟؟

[ali1234567890]

Private Sub Command1_Click()

Dim itemsnumber As Integer
itemsnumber = List1.ListCount
Text1.Text = itemsnumber

End Sub

[Saman_12]

If List.ListCount > 3 Then List.RemoveItem (List.ListCount - 1 )