Membuat Text Berjalan Kiri Dan Kanan Di Vb 6.0

Buatlah Form Seperti Di Bawah Ini:

Ketiklah Listing Seperti Di Bawah Ini:

Private Sub Command1_Click()

  End

End Sub

Private Sub Form_Load()

  Label1 = "http://herfikom.wordpress.com     "

  Label2 = "www.herfikom.hexat.com     "

End Sub

Private Sub Timer1_Timer()

  s$ = Label1

  s$ = Right$(s$, 1) & Mid$(s$, 1, Len(s$) - 1)

  Label1 = s$

 

  s$ = Label2

  s$ = Mid$(s$, 2, Len(s$)) & Left$(s$, 1)

  Label2 = s$

End Sub

Program ini dibuat oleh Heri Afrizal di bireuen

http://hery-pc.blogspot.com