Untuk Membuat text berjalan pada Titelbar

ketik koding di bawah ini pada object: timer dan procedure: Timer
******
a=thisform.caption
thisform.caption=right(a,len(a)-1)+left(a,1)

jngan lupa interval timer anda di isi : 300
semoga bermanfaat :D