ok esto es mas o menos facil solo nesesitas un timer unas funciones y listo!!
comenzemos
declaramos como global (en la general)
dim x as integer,z as integer
z=1
x=0
en el timer (cada 1 segundo o un cacho menos)!!
espacio = " "
if x=0 then
for i =1 to z
comp = comp & espacio
next
form1.caption = comp & " Cicklow SOFT®"
z=z+1
if z>10 then x=0:z=0
else
form1.caption = left("Cicklow SOFT®",len("Cicklow SOFT®")-z)
z=z-1
if z <=0 then z=1:x=0
endif
nidea si funciona bien.. ya que no lo puedo provar, pero esto te dara una idea de coso seria!!
Autor
En línea
