第二步，接受控制：Form的KeyPreview屬性要設為true，在Form_KeyPress函數中通過改變全局變量cx來控制賽車的位置。
第三步，游戲循環：作為即時游戲，必須要有一個Timer，並在其事件Timer1_Timer()中繪制所有對象和進行碰撞檢測。本例中，繪圖部分寫在了Timer1_Timer()中，碰撞測試放在了test()中。
……這也是所有即時游戲所共通的框架。當然，我們往往還是根據具體的設計作一些變通，發揮一些技巧……比如這裡設計的跑道是隨機產生的的，這就要通過一點技巧以便既讓玩家感到挑戰，又不至於出現不可逾越的難關……
下面是全部源代碼，窗體上只需放個按鈕Command1就行了！
ConstD=100注釋：方格的寬度
Constbt/16.shtml'target='_blank'class='article'>BT=3000注釋：跑道底部的y坐標
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
