I had this bug. Thank you.
the this.draw() just fix it.

---

>
>Even though the Scrollbars work (at least for me), there are some issues to be aware of. Check out MS KB article Q193078 for one issue.
>
>There also appears to be a bug. I didn't find it in any KB article. If you dynamically move an object after the form has been shown, the scrollbars will appear as needed. However, the scrollable area has not been calculated correctly. The form will scroll to a postion just above the new Top of the control that caused the Scrollbars to appear.
>
>The following will demonstrate the problem:

>oform = createobject('scrollform')
>oform.Show(1)
>return
>
>DEFINE CLASS scrollform AS form
>Top = 0
>Left = 0
>Height = 177
>Width = 274
>ScrollBars = 2
>DoCreate = .T.
>Caption = "Scoll Form"
>Name = "Scrollform"
>
>ADD OBJECT CmdMovee AS commandbutton WITH ;
>	Top = 144, ;
>	Left = 12, ;
>	Height = 27, ;
>	Width = 84, ;
>	Caption = "Movee", ;
>	Name = "CmdMovee"
>
>ADD OBJECT CmdMover AS commandbutton WITH ;
>	Top = 24, ;
>	Left = 204, ;
>	Height = 40, ;
>	Width = 40, ;
>	Caption = "Mover", ;
>	Name = "CmdMover"
>
>PROCEDURE CmdMover.Click
>	With THISFORM
>		With .CmdMovee
>			.Top = .Top + 100
>			.Parent.Draw
>			.Top = .Top - .Height
>		Endwith
>		.Draw
>	Endwith
>ENDPROC
>ENDDEFINE

>If you comment out the .Parent.Draw code, the bug will manifest.