สร้างบอลเคลื่อนที่ด้วย visual fox pro 9.0 by wa

[@watriple7710]

Curvature 99
PUBLIC p1,p2,p3,p4,p5,p6,p7,p8
p1=0
p2=0
p3=0
p4=0
p5=0
p6=0
p7=0
p8=0
Timer1
DO CASE
CASE p1=0
ThisForm.Shape1.Left=ThisForm.Shape1.Left+1
IF ThisForm.Shape1.Left>1000
p1=1
ENDIF
CASE p1=1
ThisForm.Shape1.Left=ThisForm.Shape1.Left-1
IF ThisForm.Shape1.Left400
p2=1
ENDIF
CASE p2=1
ThisForm.Shape1.top=ThisForm.Shape1.top-1
IF ThisForm.Shape1.top1000
p3=1
ENDIF
CASE p3=1
ThisForm.Shape2.Left=ThisForm.Shape2.Left-1
IF ThisForm.Shape2.Left400
p4=1
ENDIF
CASE p4=1
ThisForm.Shape2.top=ThisForm.Shape2.top-1
IF ThisForm.Shape2.top1000
p5=1
ENDIF
CASE p5=1
ThisForm.Shape3.Left=ThisForm.Shape3.Left-1
IF ThisForm.Shape3.Left400
p6=1
ENDIF
CASE p6=1
ThisForm.Shape3.top=ThisForm.Shape3.top-1
IF ThisForm.Shape3.top1000
p7=1
ENDIF
CASE p7=1
ThisForm.Shape4.Left=ThisForm.Shape4.Left-1
IF ThisForm.Shape4.Left400
p8=1
ENDIF
CASE p8=1
ThisForm.Shape4.top=ThisForm.Shape4.top-1
IF ThisForm.Shape4.top