formunuza bir tane timer yerle?tirin
birtane label

private sub form_load()
timer1.interval=10
label1.autosize=true
label1.fontname="Courier New"
end sub

private sub timer1_timer()
static t,x,artim
if IsEmpty(t) then
t="DARKPRINCE"
artim=-1
end if
if (2 * x ) >= Len(t) - 1 then artim=-artim
if x <= 0 then artim=-artim
x=x + artim
label1.caption=left(t,x) + space (len(t) - 2 * x ) + right (t,x)
end sub

kolay gelsin...