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
Bu Konudaki Yorumlar |
Label da Aşağı kayan Yazı - Yazar: chopper07 - 30/11/2008, 03:01
Cvp: Label da Aşağı kayan Yazı - Yazar: Puletin - 30/11/2008, 23:39
Cvp: Label da Aşağı kayan Yazı - Yazar: chopper07 - 01/12/2008, 01:11
|