VB Kayan Yazı

[mayhemious]

'Forma Bu kodu ekle
'Timer1 adında Timer ve
'Label1 adında Label yapıstır.
Private Sub Form_Load()
Label1.Caption = "Ben bir kayan yazıyım. İyi kayıyormuyum."
Label1.Left = ScaleLeft
Label1.Width = Me.ScaleWidth
Timer1.Interval = 30
End Sub

Private Sub Timer1_Timer()

On Error Resume Next
Label1 = Mid(Label1, 2, Len(Label1) - 1) + Left(Label1, 1)

End Sub