تعداد حروف

[Hassan2500]

سلام
دوتا کد میخوام
1- کدی میخوام که اگه تعداد حروف تکست2 بیشتر از تکست1 بود سپس تعداد حروف تکست2 در تکست3 اندازه تکست1 شود

مثال
تکست1: ا ب ج د
تکست2: ک ل م ن س ع ف ص
تکست3: ک ل م ن

2- کدی میخوام که اگه کلیک کردم حرف اول تکست1 رو حذف کنه و در تکست2 نشون بده و این حالت اگر دوباره کلیک کردم ادامه داشته باشه
مثال
تکست1: ا ب ج د
تکست2: ب ج د

[arenaw]

سلام
if len(text2) > len(text1) then text3 = mid(text2,1,len(text1))

[Hassan2500]

سؤال دومم جوابش چی میشه

[just4froum]

Private Sub Command1_Click()
Text2.Text = Text2.Text & Left(Text1.Text, 1)
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
End Sub