Kayan Form Başlıgı 2

Dim dene
Dim X
Dim z

Private Sub Form_Load()
dene = "kayan form başlığı"
X = 0
z = Len(dene)
End Sub

Private Sub Timer1_Timer()

'kayan form basligi
Dim dene1
110
z = z - 1
X = X + 1
dene1 = Right(dene, z) + " - " + Left(dene, X)
Caption = dene1
If z < 1 Then
z = Len(dene)
X = 0
GoTo 110
End If

End Sub