Cara Membuat Caption Label Bergerak di VB 6

Tips kali ini masih seputar Visual Basic yaitu Membuat Caption Label Bergerak , maksudnya bisa berjalan-jalan (smoga aja gak kesasar yah .. wekekeke) kalau di Html istilah nya Marquee (kalo gak salah), mudah-mudahan yang saya maksud bisa ngerti yah, kalo gak ngerti di mengertiin aja deh (wekekeke), Nah bagi yang berminat silakan ikuti langkah-langkah dibawah ini, Persiapan :
- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :

Enable = True, Interval = 100
- Satu Buah Control Label (Label1)
Ketik Coding dibawah ini pada Form Project

Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String

Private Sub Form_Load()
iTeks = 1
End Sub
Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = "Ini adalah Contoh"
ElseIf iTeks = 2 Then
MyTeks = "Pembuatan Label Berjalan"
ElseIf iTeks = 3 Then
MyTeks = "Dengan menggunakan Visual Basic 6"
End If
StartPos = Len(MyTeks)
Lengh = StartPos - Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
ElseIf iTeks = 2 Then
iTeks = 3
ElseIf iTeks = 3 Then
iTeks = 1
End If
Pos = 0 - StartPos
End If
Label1 = Right(MyTeks, Lengh)
End Sub

Download coding 
Mudahkan gak ribet , Sekarang Coba sobat jalan kan Project nya (Tekan F5) Caption pada label1 akan bergerak dan tulisannya bergantian.
Mudah-mudahan ada mamfaat nya bagi sobat-sobat semua, dan khusus pada bagi saya yang masi belajar.
Terimakasih sebelumnya buat sobat-sobat yang sudah bersedia memberikan komentarnya.