(20-11-15, 06:23 PM)حريف برمجة كتب :

كود :

Dim arr() As String
arr = Split(Text1.Text, " ")

Text2.Text = arr(0)
Text3.Text = arr(1)
Text4.Text = arr(2)

(20-11-15, 06:44 PM)abulayth كتب : السلام عليكم

ان شاء الله طلبك في المرفقات

يعطيكي العافية

(20-11-15, 06:23 PM)حريف برمجة كتب :

كود :

Dim arr() As String
arr = Split(Text1.Text, " ")

Text2.Text = arr(0)
Text3.Text = arr(1)
Text4.Text = arr(2)

(20-11-15, 06:50 PM)abulayth كتب :

(20-11-15, 06:23 PM)حريف برمجة كتب :

كود :

Dim arr() As String
arr = Split(Text1.Text, " ")

Text2.Text = arr(0)
Text3.Text = arr(1)
Text4.Text = arr(2)

عذرا اخي الكريم لم انتبه لردك الكافي والوافي
يعطيك العافية