ทำบอลเปลี่ยนสีด้วย visual fox pro 9.0 by wa

[@watriple7710]

PUBLIC v1,v11,v2,v22,v3,v33
v1=0
v11=0
v2=0
v22=0
v3=0
v33=0
Scroll_R_1
Procedure: Scroll
*** ActiveX Control Event ***
ThisForm.Text1.Value=255-This._Value
ThisForm.Shape1.BackColor=RGB[255-This._Value,0,0]
ThisForm.Shape4.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value]
ThisForm.Command1.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value]
ThisForm.Command2.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value]
Scroll_G_1
Procedure: Scroll
*** ActiveX Control Event ***
ThisForm.Text2.Value=255-This._Value
ThisForm.Shape2.BackColor=RGB[0,255-This._Value,0]
ThisForm.Shape4.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value]
ThisForm.Command1.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value]
ThisForm.Command2.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value]
Scroll_B_1
Procedure: Scroll
*** ActiveX Control Event ***
ThisForm.Text3.Value=255-This._Value
ThisForm.Shape3.BackColor=RGB[0,0,255-This._Value]
ThisForm.Shape4.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value]
ThisForm.Command1.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value]
ThisForm.Command2.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value]
Timer1
IF v1=0
ThisForm.Shape4.Left=ThisForm.Shape4.Left+1
IF ThisForm.Shape4.Left>ThisForm.Width-ThisForm.Shape4.Width
ThisForm.Shape4.Curvature=0
v1=1
ENDIF
ELSE
ThisForm.Shape4.Left=ThisForm.Shape4.Left-1
IF ThisForm.Shape4.LeftThisForm.Height-ThisForm.shape4.Width
ThisForm.Shape4.Curvature=0
v11=1
ENDIF
ELSE
ThisForm.shape4.Top=ThisForm.Shape4.Top-1
IF ThisForm.shape4.TopThisForm.Width-ThisForm.Shape8.Width
v2=1
ENDIF
ELSE
ThisForm.Shape8.Left=ThisForm.Shape8.Left-1
IF ThisForm.Shape8.LeftThisForm.Height-ThisForm.Shape8.Width
v22=1
ENDIF
ELSE
ThisForm.Shape8.Top=ThisForm.Shape8.Top-1
IF ThisForm.Shape8.TopThisForm.Width-ThisForm.Shape12.Width
v3=1
ENDIF
ELSE
ThisForm.Shape12.Left=ThisForm.Shape12.Left-1
IF ThisForm.Shape12.LeftThisForm.Height-ThisForm.Shape12.Width
v33=1
ENDIF
ELSE
ThisForm.Shape12.Top=ThisForm.Shape12.Top-1
IF ThisForm.Shape12.Top