此游戏是模仿的网络上的一款小游戏叫做《鸡蛋大比拼》，游戏界面如下图所示，现在在VB中来设计这个游戏。

任何一款游戏都有的它的背景故事，这款游戏也不例外，在设计前，我们先把背景故事讲一下：

一场龙卷风把母鸡大人下的鸡蛋刮到了天空中，龙卷风走之后，鸡蛋纷纷下落，这可把母鸡给吓坏了，快点帮助母鸡把鸡蛋都接住吧！

窗体设计界面：其中包含两张图片、两个标签和一个计时器。

代码实现：

1，计时器代码：

1. Dim a As Integer '定义a为整型变量

2. Private Sub Form_Load() '计时器设置

3. Timer1.Interval = 40

4. a = 0 '为后面计时器启动时控制游戏进行时间

5. End Sub

6. Private Sub Timer1_Timer() '定义窗体加载计时器事件

7. a = a + 1

8. If a < 500 Then

9. If Image1.Top < Image2.Top Then

10. Image1.Top = Image1.Top + 30

11. Else

12. If Image1.Left > Image2.Left And Image1.Left + Image1.Width < Image2.Left + Image2.Width Then Label1.Caption = Label1.Caption + 1 '鸡蛋落入母鸡中间时，标签位置进行加分功能

13. Image1.Top = 0 '鸡蛋重新从窗体顶端降落

14. Image1.Left = Form1.Width * Rnd '鸡蛋产生一个随机位置

15. End If

16. End If

17. End Sub

2，键盘控制方向键实现代码：

1. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '定义键盘事件，左右方向键控制母鸡移动

2. If KeyCode = 37 Then Image2.Left = Image2.Left - 100

3. If KeyCode = 39 Then Image2.Left = Image2.Left + 100

4. End Sub

游戏运行界面：