22-10-15, 06:02 PM
كود :
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