COba yang ini:
buat di formnya label1 dan timer, set interval dari
timer = 10. Trus isi event untuk timer1.timer seperti
di bawah ini:
Private Sub Timer1_Timer()
Static l As Integer
Static t, t1, t2 As String
t = "Perusahaanku, Jl. Permako No. D17 Bandung"
t1 = "@Copyright PT PERMAKO, Dirancang oleh : Andy
Zazz"
t2 = "Disempurnakan Oleh Bajing LOuncat @Copy
Right Tahun 2000"
l = Len(Label1.Caption) * 110
If Label1.Left < -l Then
countertimer = countertimer + 1
Label1.Left = 9165
If countertimer = 4 Then
Label1.Caption = t2
countertimer = 0
ElseIf countertimer = 2 Then
Label1.Caption = t1
Else
cek = True
Label1.Caption = t
End If
End If
Label1.Left = Label1.Left - 50
End Sub
--- TOMMY <[EMAIL PROTECTED]> wrote:
> Dear .. rekan-rekan VB saya pemula nih dan sedang
> belajar
> sedikit-sedikit, saya mau coba membuat Tulisa/teks
> yang bisa berjalan,
> tapi saya tidak tahu listingnya gimana.
> mohon bantuannya untuk memberikan listing program
> teks yang dapat
> berjalan dengan timer dan label. terima kasih
>
>
>
>
>
>
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Everything you need is one click away. Make Yahoo! your home page now.
http://us.click.yahoo.com/AHchtC/4FxNAA/yQLSAA/zCsqlB/TM
--------------------------------------------------------------------~->
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
