[احمداحمداحمد6]

كود :

Private Sub Command1_Click()

z = Len(Text1.Text)
For i = 1 To z
s(i) = Text1.Text
Print s(i)
Next i
For i = 1 To z
Print s(i)
Next i
z1 = Len(Text2.Text)
For i = 1 To z1
a(i) = Text2.Text
Print a(i)
Next i
For i = 1 To z1
Print a(i)
Next i


End Sub

Private Sub Command2_Click()

If s(4) >= a(4) Then
Print "ok"
Else: Print "not ok"
End If

End Sub

Private Sub Text1_Change()

z = Len(Text1.Text)
For i = 1 To z
s(i) = Text1.Text
Next i

End Sub

Private Sub Text2_Change()

z1 = Len(Text2.Text)
For i = 1 To z1
a(i) = Text2.Text
Next i

End Sub