> Hi all,
> Can any one give me a code that will create scrolling text on a form
>
> Thanks


you can do that with a browser on a form.try this code

yform=createObject("ymarquee")
yform.show()
read events

DEFINE CLASS ymarquee AS form
	Top = 109
	Left = 198
	Height = 343
	Width = 384
	ShowWindow = 2
	Caption = "SCrolling in a browser"
	MaxButton = .F.
	Name = "Form1"

	ADD OBJECT olebrowser AS olecontrol WITH ;
	OLECLASS="Shell.Explorer.2",;
		Top = 36, ;
		Left = 24, ;
		Height = 157, ;
		Width = 288, ;
		Name = "OleBrowser"

	ADD OBJECT edit1 AS editbox WITH ;
		Height = 73, ;
		Left = 48, ;
		Top = 204, ;
		Width = 229, ;
		Name = "Edit1"

	ADD OBJECT command3 AS commandbutton WITH ;
		Top = 288, ;
		Left = 98, ;
		Height = 25, ;
		Width = 109, ;
		Caption = "SCROLL V", ;
		Name = "Command3"

	PROCEDURE edit1.Init
		this.value="VISUAL FOXPRO IS VERY COOL !<br>FOXITE.COM IS A WONDERFULL VISUAL FOXPRO FORUM"
	ENDPROC

	PROCEDURE command3.Click
		mytexte=thisform.edit1.value
		apIE=thisform.oleBrowser
		apIE.navigate("about:blank")
		do while apIE.busy or apIE.readystate#4
		enddo
		xx=';
		 '+myTexte+;
		 ''
		apIE.document.body.scroll="no"
		 apIE.document.body.innerHtml=xx
	 
	ENDPROC
   
    PROCEDURE DESTROY
    clea events
    ENDPROC

ENDDEFINE

you can also do this code easyly with horizontal scroll.

Dont rate please.its only for the pleasure to help.Give me only a feed back.
Yousfi Benameur