Cara Membuat Tulisan Berjalan Di VB 6.0

Pada postingan kali ini, saya akan menjelaskan cara membuat tulisan berjalan di VB 6.0.
tanpa panjang lebar lagi langsung aja ke TKP.

Tapi sebelum itu atur dulu intervvalnya menjadi 50.

timer : interval = 50
Private Sub timer1
if(label1.left+label1.width)< = 0then
label1.left=me.width
end if
label1.left = label1.left-60
if(label2.left+label2.width)< = 0then
label2.left=me-width
end if
label2.left=label2.left-30

scource di atas memberikan efek text berjalan ke samping kiri


form     unload
Do
me.top=me.top+40
me.move me.left, me.top
Do events
loop until me.top > screen.jeight=500

Scource di atas memberikan efek text berjalan ke atas.

selamat mencoba semoga berhasil.