Membuat Teks Berjalan ke kanan dan ke kiri di VB6 ~ Ini Kodingku

Ohayou minna. . .

Mau melanjutkan dari posting sebelumnya tentang Membuat Teks Berjalan (Running Text) Berurutan Dari Belakang Di VB6, nah kali saya akan memberikan contoh listing program membuat efek animasi teks berjalan ke kanan dan ke kiri dan tentunya bisa anda kembangkan sendiri sesuai kreatifitas anda. dalam pembuatan efek animasi ini saya memanfaatkan properti left pada label yang akan disisipkan di sub timer. untuk lebih jelasnya bisa dilihat dari listing progamnya dibawah ini :

Sebelumnya siapkan terlebih dahulu satu buah label dan timer dari tab control untuk namanya jangan ada yang dirubah biarkan jadi defaultnya saja.

Private Sub Form_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = False
Label1.Aligment = 0
Label1.Left = 0
Label1.Top = 500
Label1.Width = 4500
Label1.Caption = "Tulisan Ini Kodingku Akan Berjalan Ke Kanan dan Ke Kiri"
Form1.Height = 2000
Form1.Width = 7000
End Sub

Private Sub Timer1_Timer()
If Label1.Left <> Not 0 Then
   Label1.Left = Label1.Left + 10
If Label1.Left = 3700 Then
   Label1.Visible = False
End If
End If
End Sub

Selesai silahkan dieksekusi, untuk mengatur kecepatan bergerak teksnya bisa di atur di Sub Timer_Timer lebih tepatnya di :