'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 = "Merhaba Arkadaslar Umarim bu Kayar yazi ornegi isinize yarar !!!!!"
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

Hayat Kisa Degmez Bir Kiza !!



blok sıteme gırıs : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]