Yazıları Kaydıralım || VB

Dim yazi
Dim X
Dim z
Private Sub Form_Load()
yazi = "Kaysın Yazılar,Oynasın Dansözler :P" 'Buarayı Değiştirebilirsiniz
X = 0
z = Len(dene) 'yazımızın Uzunluğu
End Sub

Private Sub Timer1_Timer()
'kayan form basligi
Dim yazi1
118
z = z - 1
X = X + 1
yazi1 = Right(yazi, z) + " - " + Left(yazi, X)
Caption = yazi1
If z < 1 Then
z = Len(yazi)
X = 0
GoTo 118
End If
End Sub

Yukarıdaki kodları açıklamak gerekirse.Form_load gerçekleştiğinde yazı belirleniyor.ve formunuza koyduğunuz timer devreye giriyor.Z değişkenine yazımızın uzunluğu yükleniyor.daha sonrasında her timer dönüşü kodumuz devreye giriyor.daha sonrasında caption olarak bu yaziyi gösteriyoruz.Küçük bir kod parçasıdır.istediğiniz gibi değiştirebilir kullanabilirsiniz.

yazi1 = Right(yazi, z) + " - " + Left(yazi, X)
Kodu ile Z değeri kadar yazımızın sağından ve x değeri kadar yazimizin sol tarafından bilgilerimi alarak arayada bir tire atıyoruz