正在阅读：用VB6.0设计简易赛车游戏用VB6.0设计简易赛车游戏

　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

　　End Sub

　　Private Sub drawway(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

　　End Sub

　　Private Sub Form_KeyPress(KeyAscii As Integer)

　Select Case KeyAscii
　　Case Asc("a"), Asc("A")
　　　cx = cx - D
　　Case Asc("s"), Asc("S")
　　　cx = cx + D
　End Select

　　End Sub