سرچ کلمه در لیست باکس

[tehran2009]

سلام دوستان
فرض کنید یک تکست باکس و یک لیست باکس داریم که توی لیست این نوشته ها هست

رضا
مصطفی
محمد
علی

حالا می خوام وقتی توی تکست بنویسم رضا برنامه اسم رضا رو از لیست 1 پاک کنه و ببره توی لیست 2 و اونو به این صورت بنویسه ( اگه اسم های دیگه ای هم نوشتم و توی لیست بود از یست پاک کنه ببره توی لیست 2 در غیر این صورت کاری نکنه )

رضا = رضا

ممنون میشم دوستان با سورس راهنمایی کنن.

[M.T.P]

حالشو ببر




dim Result as string
dim i as long
Result = Text1.text
for i = 0 to list1.listcount -1
if list1.list(i) = Trim(Result) then
list2.additem Result & " = " & Result
list1.removeitem i
end if
next i