VERSION 5.00
Begin VB.Form frmShoot 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Shooting Gallery"
   ClientHeight    =   3195
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   Icon            =   "Shooting Gallery.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "Shooting Gallery.frx":0ECA
   MousePointer    =   2  'Cross
   ScaleHeight     =   213
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   312
   StartUpPosition =   2  'CenterScreen
   Begin VB.PictureBox Mushroom 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Height          =   750
      Left            =   120
      Picture         =   "Shooting Gallery.frx":1D94
      ScaleHeight     =   750
      ScaleWidth      =   750
      TabIndex        =   1
      Top             =   480
      Width           =   750
   End
   Begin VB.Timer Timer 
      Interval        =   1
      Left            =   4200
      Top             =   360
   End
   Begin VB.Label lblScore 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   0
      MousePointer    =   1  'Arrow
      TabIndex        =   0
      Top             =   0
      Width           =   4680
   End
End
Attribute VB_Name = "frmShoot"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public TopAdd As Integer
Public LeftAdd As Integer
Public Score As Integer
Private Sub Form_Load()
Score = 0
TopAdd = 1
LeftAdd = 1
End Sub
Private Sub Mushroom_Click()
Score = Score + 1
lblScore = Score
End Sub
Private Sub Timer_Timer()
Mushroom.Top = Mushroom.Top + TopAdd
Mushroom.Left = Mushroom.Left + LeftAdd
If Mushroom.Top = 160 Then
TopAdd = TopAdd * -1
End If
If Mushroom.Left = 256 Then
LeftAdd = LeftAdd * -1
End If
End Sub