metin aynası

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 Sub