Kod:
Option Explicit
Private Sub Form_Load()
Timer1.Interval = 1
Label1.Caption = "Accesstr.net"
End Sub
Private Sub Timer1_Timer()
Label1.Top = Label1.Top + 3
If Label1.Top = Me.Top Then Label1.Top = 0
End Sub
formumuza bir timer - 1 label ekleyip kodları yapıştırıyoruz.
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®
