[اسلام الكبابى]

يوجد تكست بوكس 1

و 5 تكست بوكس أخرى (OTHERText(0 حتى (OTHERText(4

PHP كود :

Private Sub Command1_Click()
For I = 1 To 5
OTHERText(I - 1).Text = Mid(Text1.Text, I, 1)
Next I
End Sub