چاپ item های listbox در textbox

[leilast]

سلام
من یک listbox دارم که وقتی تابعی رو فراخوانی میکنم فعال میشه و تا زمانی که تابع رو stop نکردم مرتب list1.additem در هر سطر یک رشته عدد چاپ میکنه.
حالا من میخوام در همان لحظه که item ها به listbox اضافه میشه در textbox هم وارد بشه و داده جدید که وارد میشه داده قبلی پاک بشه و داده جدید update بشه
در واقع textbox همون کار listbox رو انجام میده با این تفاوت که داده های قبلی رو پاک میکنه و فقط یک رشته چاپ میکنه.
میشه راهنماییم کنید.

[xxxxx_xxxxx]

سلام،
مثلاً اگر عبارتی که به لیست اضافه میشه در متغیر x قرار داره، بعد از AddItem بنویسید:

Text1.Text = x

[butterfly8528]

سلام .


Text1.Text = List1.List(List1.ListIndex)
' va ya
Text1.Text = List1.Text

موفق باشی .

[javad 2010]

سلام
یک مشکلی هم برای من پیش آمده و می خواهم مقدار c رادر مثال زیر در لیست باکس چاپ نمایم. ولی ارور 6014 می ده .باید چی کارکنم تا در لیست باکس چاپ بشه؟لطفا سرعتر پاسخ دهید.

Private Sub Command4_Click()
Dim db As Database
Dim tb_to As Recordset
Set db = CurrentDb
Set tb_to = db.OpenRecordset("tb-tolid")
For i = 1 To tb_to.RecordCount
If Text0.Value = tb_to.Fields("id mahsul").Value Then
a = tb_to.Fields("tedad tahvil")
b = Text2.Value
If a >= b Then
MsgBox " sefaresh darim"
Else
c = b - a
List15.AddItem Item = c
End If
End If
Next
End Sub