第二步，接受控制：Form的KeyPReview屬性要設為true，在Form_KeyPress函數中通過改變全局變量cx來控制賽車的位置。

　　第三步，Diml1(22)AsInteger注釋：每層跑道左邊有幾個方塊
Diml2(22)AsInteger注釋：每層跑道右邊有幾個方塊
DimcxAsSingle注釋：賽車的在x軸的位置

PrivateSubCommand1_Click()

　cx=Width/2-3*D/2
　cy=Height-D
　drawcar
　Fori=1To20
　　l1(i)=0
　　l2(i)=0
　　drawway(i)
　Nexti
　Timer1.Enabled=True

EndSub

PrivateSubdrawcar()

　Line(cx,BT-100)-Step(3*D,D),BackColor,BF
　Line(cx D,BT-200)-Step(D,D),BackColor,BF注釋：先擦
　Line(cx,BT-100)-Step(3*D,D),RGB(225,0,0),BF
　Line(cx D,BT-200)-Step(D,D),RGB(225,0,0),BF

EndSub

PrivateSubdrawway(n)

　Line(Width/2-3*D/2-2*D,BT-n*D)-Step(7*D,D),BackColor,BF
注釋：先擦后畫
　Line(Width/2-3*D/2-2*D,BT-n*D)-Step(l1(n)*D,D),,BF
　Line(Width/2-3*D/2 5*D,BT-n*D)-Step(-l2(n)*D,D),,BF

EndSub

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

　SelectCaseKeyAscii
　　CaseAsc("a"),Asc("A")
　　　cx=cx-D
　　CaseAsc("s"),Asc("S")
　　　cx=cx D
　EndSelect

EndSub

PrivateSubTimer1_Timer()
　Randomize
　Fori=1To19
　　l1(i)=l1(i 1)
　　l2(i)=l2(i 1)
　　drawway(i)
　Nexti
　Do
　　l1(20)=Int(Rnd*5)
　　l2(20)=Int(Rnd*5)
　LoopUntil((l1(20) l2(20)<=4)And(l1(20)-l1(19)<=1)And_
(l2(20)-l2(19)<=1)And(l1(19) l2(20)<=4)And_
(l1(20) l2(19)<=4))注釋：這里生成新一層跑道，
注釋：注意要篩去玩家不可能通過的情況！
drawway(20)
注釋：以上畫出跑道
　drawcar
　test

EndSub

PrivateSubtest()

　If3.5*D-Width/2 cx　If3.5*D-Width/2 cx D　If3.5*D-(cx 3*D-Width/2)　If3.5*D-(cx 2*D-Width/2)
EndSub