>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.