أدراج نص

لنفرض انك تريد ادراج النص الموجود في text2 الى مربع النص text1 في مكان وجود المؤشر عند الضغط على زر الامر command1

Private Sub Command1_Click()
iStart = Text1.SelStart
Text1.SelLength = Len(Text2.Text)
Text1.SelText = Text2.Text
End Sub

وشكرا

مشكور أخوي programmer2001 تراك فعلاً مبرمج خطير