[COLOR="Red"][I] '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[/I]
BEDAVA MILYONLARCA LİSELI GENÇ KIZ MSN ADRESI.!!!
- Konular -
|
