Kayan Yazı [Winamp Gibi]

'Formun uzerine Bir Picture Box yerlestirin ismide Picture1 olsun
'Formun uzerine Bir Timer yerlestirin ismide Timer1 olsun
'Picture Box'un icine bir Label yerlestirin ismi Label1 olsun
'Asagidaki kodu da direct olarak yapistiriniz
'Keyifli seyirler

Dim Kayan As Long
Private Sub Form_Load()
Label1.Caption = "Program RappeRSRC'e Aittir..."
Picture1.Width = 3000
Picture1.Height = 250
Label1.Top = 0
Kayan = Picture1.Width
Timer1.Interval = 10
Label1.AutoSize = True

End Sub

Private Sub Timer1_Timer()
Kayan = Kayan - 10
Label1.Left = Kayan
If Label1.Left <= Label1.Width * (-1) Then
Kayan = Picture1.Width
End If
End Sub