1. buat objek picturebox mis. namanya Picture1
2. buat objek label di dalam picturebox mis namanya Label1
3. set property autosize Label1 ke true
4. buat objek timer misal Timer1
5. set property timer, enabled=true, interval=100 (coba2 sendiri ya
nilainya)
trus masukkan kode berikut :
Private Sub Form_Load()
Label1.Left = Picture1.Width
End Sub
Private Sub Timer1_Timer()
If Label1.Left < -Label1.Width Then
Label1.Left = Picture1.Width
Else
Label1.Left = Label1.Left - 100
End If
End Sub
semoga membantu.
salam,
cahyo
--- In [email protected], Dian Rahmadi <[EMAIL PROTECTED]> wrote:
>
> Saya mohon pencerahan dari rekan2 mengenai algoritma & kode untuk
membuat marque berupa teks yang bergerak dari kanan ke kiri...,
>
>
> ---------------------------------
> Sekarang dengan penyimpanan 1GB
> http://id.mail.yahoo.com/
>
> [Non-text portions of this message have been removed]
>
