在VB中编写小游戏的步骤是什么？

窗体放两个Label控件，一个Timer控件：Dim n As IntegerPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Select Case KeyCodeCase vbKeyUpIf Label1.Top > 0 Then Label1.Top = Label1.Top - 50Case vbKeyDownIf Label1.Top 0 Then Label1.Left = Label1.Left - 50Case vbKeyRightIf Label1.Left