Very interesting. I tested it with your settings and added a width to the textbox of 181 and the scroll worked as it should. However, when I changed the MaxLength to 15 (instead of 5) then the width had to be 350 to prevent the misbehavior...


>If you purchase a Cinema you resolve the problem.
>
>The problem is a Bug into the VFP, it compute a scrolled width too large,
>and then it require a long TextBox.
>
>Run this, and try with different TextBox Width,
>the scroll is correlate with the blank area,
>when the width is >=180 the scroll disappear.
>
>Repro:
>

>PUBLIC oform1
>
>oform1=NEWOBJECT("form1")
>oform1.Show
>RETURN
>
>DEFINE CLASS form1 AS form
>
>
>	DoCreate = .T.
>	Caption = "Form1"
>	Name = "Form1"
>
>
>	ADD OBJECT text1 AS textbox WITH ;
>		Value = "abcde", ;
>		Height = 23, ;
>		Left = 21, ;
>		MaxLength = 5, ;
>		Top = 17, ;
>		Name = "Text1"
>
>
>	ADD OBJECT spinner1 AS spinner WITH ;
>		Height = 24, ;
>		Increment =  20.00, ;
>		KeyboardHighValue = 200, ;
>		KeyboardLowValue = 3, ;
>		Left = 22, ;
>		SpinnerHighValue = 200.00, ;
>		SpinnerLowValue =   3.00, ;
>		Top = 48, ;
>		Width = 79, ;
>		ControlSource = "thisform.Text1.Width", ;
>		Name = "Spinner1"
>ENDDEFINE
>