version 4.00 0 Form1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 238 268 0 0 0 Sub designer addform(Form1,"Form1","",220,220,220)@ End Sub @EndOfDesignText@Sub Globals Height=5: LastHeight=5: dY=5 Width=5: LastWidth=5: dX=5 HeightMin = 5: HeightMax = Form1.Height-5 WidthMin = 5: WidthMax = Form1.Width-5 End Sub Sub App_Start Form1.Show Form1.ForeLayer=True BounceBall End Sub Sub BounceBall Height = Rnd(HeightMin,HeightMax) Width = Rnd(WidthMin,WidthMax) DO UNTIL 0=1 For y=1 to 1000 'loop to reduce the speed NEXT DoEvents LastWidth=Width LastHeight=Height Form1.FErase(LastWidth-5,LastHeight-5,LastWidth+5,LastHeight+5) Height=Height+dY Width=Width+dX Form1.FCircle(Width,Height,5,cRed,F) IF Height>=HeightMax Then Height = HeightMax dY = -dY END IF IF Height<=HeightMin Then Height = HeightMin dY=-dY END IF IF Width >= WidthMax then Width = WidthMax dX = -dX END IF IF Width <= WidthMin then Width = WidthMin dX = -dX END IF LOOP End Sub