[أبو التيمان]

أريد تحديد length  معين لتكست ون وما تبقى من الجملة ينزل تلقائياً فى تكست 2

أرجو أن يكون المطلوب واضحا

[Ahmed_Mansoor]

أهلا أخي الكريم :

كود :

Private Sub Command1_Click()

Dim zText As String
Dim zLength As Integer

zText = Text1.Text
zLength = 3

Text1.Text = Left$(zText, zLength)
Text2.Text = Mid$(zText, zLength + 1)

End Sub

[أبو التيمان]

نسأل الله أن يجعل لك فى كل خطوة بركة

بارك الله لك فى علمك ووفقك