Listing Buat Text Marque pada VB 6.0

dim teksasal as string private sub Form_load() teksasal = "Assalamu'alaikum, nama saya Kang Asep "

'ingat pake 3 atau 4 spasi dibelakangnya timer1.interval = 500 text1.text = teksasal end sub private sub timer1_timer() text1.text = (right(text1.text, len(text1.text) - 1)) + (left(text1.text , 1)) end sub

Met mencoba ya.... Keep Istiqomah... =) Kang Asep M Teguh A Suandi email: kangasep@hotmail.com phone: 0857 1811 5904 021 999 ... lupa.he3 visit me at: http://asepsuandi.webs.com