Private
Sub
Command1_Click()
Dim
i
i=0
do until i=len(Text1.text)
'Text1 deki karekter sayisi kadar Fonksiyonu calistir
i=i+1
a=Right(Text1.Text,i)
'sagdan i ninci karekteri Al
b=Left(a,1)
' Aldigin Metinin ilk karekterden sonra sil
Text2.Seltext=b
'sirasiyla Yaz
loop
'Fonksiyon kapanisi
End
magician
sevimli_9@hotmail.com