Cara Membuat Text Berjalan VB6.0

Membuat aplikasi bagus kurang lengkap kalo tampilannya kurang menarik, saya sebagai newbie cuma mau berbagi tips membuat tulisan berjalan di visual basic 6, supaya tampilan aplikasi yang kita sudah buat lebih menarik..

ada tiga kategori membuat tulisan berjalan
1. tulisan berjalan di tempat itu sendiri,
2. tulisan berjalan di form, dan
3. tulisan berjalan di form jika sudah mencapai ujung akan muncul di ujung lain

langsung saja tanpa berbelelit-belit,pastinya agan-agan udah sedikit paham tentang komponen-komponen yang ada pada visual basic
siapkan 1 buah label dan 1 buah timer, dan di bawah ini codingnya tiap-tiap kategori...

1. tulisan berjalan di tempat itu sendiri,

Private Sub Form_Load()
Label1.Caption = " Salam Blogger "       'text yang akan muncul di label, anda bisa merubah sesuai keinginan
Label1.AutoSize = True
Timer1.Interval = 100                             'kecepatan bergeser
End Sub

Private Sub Timer1_Timer()
Dim Lng_chr As Integer
Dim R_chr, L_chr As String

Lng_chr = Len(Label1.Caption)
L_chr = Left(Label1.Caption, 1)
R_chr = Right(Label1.Caption, Lng_chr - 1)

Label1.Caption = R_chr + L_chr
End Sub

2. tulisan berjalan di form

Private Sub Form_Load()
Label1.Caption = " Salam Blogger "       'text yang akan muncul di label, anda bisa merubah sesuai keinginan
Label1.AutoSize = True
Timer1.Interval = 100                             'kecepatan bergeser
End Sub

Private Sub Timer1_Timer()
If Label1.Left <= -Label1.Width Then
Label1.Left = Me.Width
Else
Label1.Left = Label1.Left - 100
End If
End Sub

3. tulisan berjalan di form jika sudah mencapai ujung akan muncul di ujung lain
'#ket untuk kategori ini, tambahkan 1 buah label lagi ke dalam form

Private Sub Form_Load()
Label1.Caption = " Salam Blogger "
Label2.Caption = Label1.Caption
Label2.Top = Label1.Top
Label1.AutoSize = True
Label2.AutoSize = True
Label2.Font.Size = Label1.Font.Size
Label1.Left = 0
Label2.Left = Me.Width
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If Label1.Left > -Label1.Width Then
Label1.Left = Label1.Left - 100
Else
If Label2.Left < 0 Then
Label1.Left = Me.Width
End If
End If

If Label2.Left > -Label2.Width Then
Label2.Left = Label2.Left - 100
Else
If Label1.Left < 0 Then
Label2.Left = Me.Width
End If
End If
End Sub

moga bermanfaat bagi agan-agan yang ingin mencobanya, hmmm dan ini hasil saya bereksperimen sendiri..
moga berhasil mencobanya..

*..sesama blogger harus saling menghargai..*