AccessTr.neT

Tam Versiyon: Label da Aşağı kayan Yazı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
formumuza bir timer - 1 label ekleyip kodları yapıştırıyoruz.

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
Eline sağlık hocam
rica ederim.