mas, coba pake sintak ini,
Dim counter As Integer
Private Sub Timer1_Timer()
Dim Kalimat As String
Kalimat = "Kalimat Berjalan"
counter = counter + 1
DoEvents
Label1.Caption = TulisJalan(counter, Kalimat, 30)
End Sub
Dim Kalimat As String
Kalimat = "Kalimat Berjalan"
counter = counter + 1
DoEvents
Label1.Caption = TulisJalan(counter, Kalimat, 30)
End Sub
Public Function TulisJalan(hitung As Integer, strKalimat As String, _
Panjang As Integer)
If hitung = Len(strKalimat) + Panjang Then
hitung = 0
ElseIf hitung > Len(strKalimat) Then
TulisJalan = strKalimat & Space(hitung - Len(strKalimat))
Else
TulisJalan = Mid(strKalimat, 1, hitung)
End If
End Function
Panjang As Integer)
If hitung = Len(strKalimat) + Panjang Then
hitung = 0
ElseIf hitung > Len(strKalimat) Then
TulisJalan = strKalimat & Space(hitung - Len(strKalimat))
Else
TulisJalan = Mid(strKalimat, 1, hitung)
End If
End Function
interval timer diset = 100
mdh2an bisa membantu.GBU
Stay in the know. Pulse on the new Yahoo.com. Check it out. __._,_.___
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
SPONSORED LINKS
| Indonesia phone card | Programmer | Indonesia tour |
| Indonesia travel | Indonesia flower |
Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
__,_._,___
