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
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