سوالی در مورد TextBox در VB6

اقا چه جوري ميشه به يك تكست باكس ويژگي رو بدي كه مثلا بهد از اين كه یه متن توش رفت به صورت اتوماتيك کلیک بشه و متن به تكست باكس بعدي بره............ ؟

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End Sub
اینجوری میشه

با این کد نشد
من میخوام کلیک بشه

سوالتو واضح تر بگو منظور این دو تا جمله رو نفهمیدم:

نقل قول:

---

متن به تكست باكس بعدي بره

---

منظورت اینه که متنی رو که نوشتیم کپی بشه تو بعدی یا قفط بریم رو تکست باکس بعدی؟

نقل قول:

---

اتوماتيك کلیک بشه

---

چی کلیک بشه؟

سلام
خوب سوال من اینه که من تویه لیست بوکس یه ردیف کلمه دارم و با کلیک رو هر کلمه میره به یه تکست بوکس و میخوام که این کلمه به محضه اینکه وارد تکست بوکس شد تکست بوکس کلیک بشه و اون کلمه به تکست بوکس در برنامه دیگه بره و من تمامه این کارا رو کردم و میخوام بدونم چه کدی چگونه از چه راهی باید استفاده کنم که تا کلمه اومد تو تکست بوکس کلیک بشه.....
ممنون.

خوب از اخر سوالتون رو میپرسیدین
ابتدا بگین ببینم شما سورس این برنامه ها رو دارین یا نه که فکر نکنم داشته باشین
1 اگه داشتین کار راحت تره که حالا بهش کاری نداریم
2 در صورتی که سورس رو ندارین ابتدا تو برنامتون هندل اون تکس باکس رو بگیرین سپس با تابع gettext
از توابع api متن تکس باکس رو وارد برنامه خودتون کنید
قبلا رو مینا یک سورس اینجوری گذاشته بود سرچ کنید حتما پیدا میکنید

برنامه رو تو حالت form_load اینجوری بنویس :



text2.text=text1.text



به امید روزی که تمام ایرانیها در رفاه کامل زندگی کنند ...............................................

رويداد change

سلام
اگه میخوای به محض اینکه حرفی تو تکست باکس اولی نوشته شد تو تکست باکس دوم نمایش پیدا کنه میتوونی از این کد استفاده کنی !!!!
private sub text1_change()
text2.text=text1.text
end sub
اگه جور دیگه میخوای سوالت رو واضح تر بپرس

با تايمر هم ميشه و ...