VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H80000009&
   Caption         =   "Snouff's Really Cool Game"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   Palette         =   "Form1.frx":0000
   ScaleHeight     =   8490
   ScaleWidth      =   11880
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Right 
      Caption         =   "Right"
      Height          =   255
      Left            =   10900
      TabIndex        =   6
      Top             =   2640
      Width           =   735
   End
   Begin VB.CommandButton Left 
      Caption         =   "Left"
      Height          =   255
      Left            =   10900
      TabIndex        =   5
      Top             =   2400
      Width           =   735
   End
   Begin VB.CommandButton Down 
      Caption         =   "Down"
      Height          =   255
      Left            =   10900
      TabIndex        =   4
      Top             =   2160
      Width           =   735
   End
   Begin VB.CommandButton Up 
      Caption         =   "Up"
      Height          =   255
      Left            =   10900
      TabIndex        =   3
      Top             =   1920
      Width           =   735
   End
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   480
      Top             =   120
   End
   Begin VB.Line Line14 
      X1              =   10560
      X2              =   11880
      Y1              =   1680
      Y2              =   1680
   End
   Begin VB.Line Line13 
      X1              =   10560
      X2              =   11880
      Y1              =   840
      Y2              =   840
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Ball Coordinates"
      Height          =   615
      Left            =   10680
      TabIndex        =   2
      Top             =   240
      Width           =   975
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "Ball Y"
      Height          =   375
      Left            =   10680
      TabIndex        =   1
      Tag             =   "1"
      Top             =   1200
      Width           =   975
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "Ball X"
      Height          =   375
      Left            =   10680
      TabIndex        =   0
      Tag             =   "1"
      Top             =   960
      Width           =   975
   End
   Begin VB.Line Line12 
      X1              =   0
      X2              =   10500
      Y1              =   6900
      Y2              =   6900
   End
   Begin VB.Line Line11 
      X1              =   0
      X2              =   10500
      Y1              =   5520
      Y2              =   5520
   End
   Begin VB.Line Line10 
      X1              =   0
      X2              =   10500
      Y1              =   4140
      Y2              =   4140
   End
   Begin VB.Line Line9 
      X1              =   0
      X2              =   10500
      Y1              =   2755
      Y2              =   2755
   End
   Begin VB.Line Line8 
      X1              =   0
      X2              =   10500
      Y1              =   1375
      Y2              =   1375
   End
   Begin VB.Line Line7 
      X1              =   10500
      X2              =   10500
      Y1              =   0
      Y2              =   8280
   End
   Begin VB.Line Line6 
      X1              =   9000
      X2              =   9000
      Y1              =   0
      Y2              =   8280
   End
   Begin VB.Line Line5 
      X1              =   7500
      X2              =   7500
      Y1              =   0
      Y2              =   8280
   End
   Begin VB.Line Line4 
      X1              =   6000
      X2              =   6000
      Y1              =   0
      Y2              =   8280
   End
   Begin VB.Line Line3 
      X1              =   4500
      X2              =   4500
      Y1              =   0
      Y2              =   8280
   End
   Begin VB.Line Line2 
      X1              =   3000
      X2              =   3000
      Y1              =   0
      Y2              =   8280
   End
   Begin VB.Line Line1 
      X1              =   1500
      X2              =   1500
      Y1              =   0
      Y2              =   8280
   End
   Begin VB.Shape Shape1 
      BackStyle       =   1  'Opaque
      BorderColor     =   &H000000FF&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H000000FF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   0
      Shape           =   3  'Circle
      Top             =   0
      Width           =   495
   End
   Begin VB.Shape Sq6x7 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   9000
      Top             =   6900
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq6x6 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   7500
      Top             =   6900
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq6x5 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   6000
      Top             =   6900
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq6x4 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   4500
      Top             =   6900
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq6x3 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   3000
      Top             =   6900
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq6x2 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   1500
      Top             =   6900
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq6x1 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   0
      Top             =   6900
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq5x7 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   9000
      Top             =   5520
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq5x6 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   7500
      Top             =   5520
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq5x5 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   6000
      Top             =   5520
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq5x4 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   4500
      Top             =   5520
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq5x3 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   3000
      Top             =   5520
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq5x2 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   1500
      Top             =   5520
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq5x1 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   0
      Top             =   5520
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq4x7 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   9000
      Top             =   4140
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq4x6 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   7500
      Top             =   4140
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq4x5 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   6000
      Top             =   4140
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq4x4 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   4500
      Top             =   4140
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq4x3 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   3000
      Top             =   4140
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq4x2 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   1500
      Top             =   4140
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq4x1 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1380
      Left            =   0
      Top             =   4140
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq3x7 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   9000
      Top             =   2755
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq3x6 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   7500
      Top             =   2755
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq3x5 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   6000
      Top             =   2755
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq3x4 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   4500
      Top             =   2755
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq3x3 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   3000
      Top             =   2755
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq3x2 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   1500
      Top             =   2755
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq3x1 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   0
      Top             =   2755
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq2x1 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   0
      Top             =   1375
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq2x2 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   1500
      Top             =   1375
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq2x3 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   3000
      Top             =   1375
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq2x4 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   4500
      Top             =   1375
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq2x5 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   6000
      Top             =   1375
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq2x6 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   7500
      Top             =   1375
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq2x7 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   9000
      Top             =   1375
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq1x1 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq1x2 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   1500
      Top             =   0
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq1x3 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   3000
      Top             =   0
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq1x4 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   4500
      Top             =   0
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq1x5 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   6000
      Top             =   0
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq1x6 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   7500
      Top             =   0
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Sq1x7 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   1375
      Left            =   9000
      Top             =   0
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Shape Shape2 
      BorderColor     =   &H00004080&
      BorderWidth     =   3
      FillColor       =   &H00C0FFFF&
      FillStyle       =   0  'Solid
      Height          =   7995
      Left            =   10560
      Shape           =   4  'Rounded Rectangle
      Top             =   50
      Width           =   1380
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()

End Sub

Private Sub Down_Click()
Label4.Tag = 1
End Sub


Private Sub Left_Click()
Label3.Tag = 1
End Sub

Private Sub Right_Click()
Label3.Tag = 2
End Sub

Private Sub Timer1_Timer()
Label3.Caption = Shape1.Left
Label4.Caption = Shape1.Top

If Shape1.Top >= 7620 Then
Label4.Tag = 2
ElseIf Shape1.Top <= 0 Then
Label4.Tag = 1
End If
If Shape1.Left <= 0 Then
Label3.Tag = 2
ElseIf Shape1.Left >= 10005 Then
Label3.Tag = 1
End If
If Label3.Tag = 2 Then
Shape1.Left = Shape1.Left + 20
End If
If Label3.Tag = 1 Then
Shape1.Left = Shape1.Left - 20
End If
If Label4.Tag = 1 Then
Shape1.Top = Shape1.Top + 20
End If
If Label4.Tag = 2 Then
Shape1.Top = Shape1.Top - 20
End If

If Shape1.Top < 1375 And Shape1.Left < 1500 Then
Sq1x1.Visible = True
Else
Sq1x1.Visible = False
End If

If Shape1.Top < 1375 And (Shape1.Left > 1500 And Shape1.Left < 3000) Then
Sq1x2.Visible = True
Else
Sq1x2.Visible = False
End If

If Shape1.Top < 1375 And (Shape1.Left > 3000 And Shape1.Left < 4500) Then
Sq1x3.Visible = True
Else
Sq1x3.Visible = False
End If

If Shape1.Top < 1375 And (Shape1.Left > 4500 And Shape1.Left < 6000) Then
Sq1x4.Visible = True
Else
Sq1x4.Visible = False
End If

If Shape1.Top < 1375 And (Shape1.Left > 6000 And Shape1.Left < 7500) Then
Sq1x5.Visible = True
Else
Sq1x5.Visible = False
End If

If Shape1.Top < 1375 And (Shape1.Left > 7500 And Shape1.Left < 9000) Then
Sq1x6.Visible = True
Else
Sq1x6.Visible = False
End If

If Shape1.Top < 1375 And (Shape1.Left > 9000 And Shape1.Left < 10500) Then
Sq1x7.Visible = True
Else
Sq1x7.Visible = False
End If


If (Shape1.Top > 1375 And Shape1.Top < 2755) And Shape1.Left < 1500 Then
Sq2x1.Visible = True
Else
Sq2x1.Visible = False
End If

If (Shape1.Top > 1375 And Shape1.Top < 2755) And (Shape1.Left > 1500 And Shape1.Left < 3000) Then
Sq2x2.Visible = True
Else
Sq2x2.Visible = False
End If

If (Shape1.Top > 1375 And Shape1.Top < 2755) And (Shape1.Left > 3000 And Shape1.Left < 4500) Then
Sq2x3.Visible = True
Else
Sq2x3.Visible = False
End If

If (Shape1.Top > 1375 And Shape1.Top < 2755) And (Shape1.Left > 4500 And Shape1.Left < 6000) Then
Sq2x4.Visible = True
Else
Sq2x4.Visible = False
End If

If (Shape1.Top > 1375 And Shape1.Top < 2755) And (Shape1.Left > 6000 And Shape1.Left < 7500) Then
Sq2x5.Visible = True
Else
Sq2x5.Visible = False
End If

If (Shape1.Top > 1375 And Shape1.Top < 2755) And (Shape1.Left > 7500 And Shape1.Left < 9000) Then
Sq2x6.Visible = True
Else
Sq2x6.Visible = False
End If

If (Shape1.Top > 1375 And Shape1.Top < 2755) And (Shape1.Left > 9000 And Shape1.Left < 10500) Then
Sq2x7.Visible = True
Else
Sq2x7.Visible = False
End If


If (Shape1.Top > 2755 And Shape1.Top < 4140) And Shape1.Left < 1500 Then
Sq3x1.Visible = True
Else
Sq3x1.Visible = False
End If

If (Shape1.Top > 2755 And Shape1.Top < 4140) And (Shape1.Left > 1500 And Shape1.Left < 3000) Then
Sq3x2.Visible = True
Else
Sq3x2.Visible = False
End If

If (Shape1.Top > 2755 And Shape1.Top < 4140) And (Shape1.Left > 3000 And Shape1.Left < 4500) Then
Sq3x3.Visible = True
Else
Sq3x3.Visible = False
End If

If (Shape1.Top > 2755 And Shape1.Top < 4140) And (Shape1.Left > 4500 And Shape1.Left < 6000) Then
Sq3x4.Visible = True
Else
Sq3x4.Visible = False
End If

If (Shape1.Top > 2755 And Shape1.Top < 4140) And (Shape1.Left > 6000 And Shape1.Left < 7500) Then
Sq3x5.Visible = True
Else
Sq3x5.Visible = False
End If

If (Shape1.Top > 2755 And Shape1.Top < 4140) And (Shape1.Left > 7500 And Shape1.Left < 9000) Then
Sq3x6.Visible = True
Else
Sq3x6.Visible = False
End If

If (Shape1.Top > 2755 And Shape1.Top < 4140) And (Shape1.Left > 9000 And Shape1.Left < 10500) Then
Sq3x7.Visible = True
Else
Sq3x7.Visible = False
End If


If (Shape1.Top > 4140 And Shape1.Top < 5520) And Shape1.Left < 1500 Then
Sq4x1.Visible = True
Else
Sq4x1.Visible = False
End If

If (Shape1.Top > 4140 And Shape1.Top < 5520) And (Shape1.Left > 1500 And Shape1.Left < 3000) Then
Sq4x2.Visible = True
Else
Sq4x2.Visible = False
End If

If (Shape1.Top > 4140 And Shape1.Top < 5520) And (Shape1.Left > 3000 And Shape1.Left < 4500) Then
Sq4x3.Visible = True
Else
Sq4x3.Visible = False
End If

If (Shape1.Top > 4140 And Shape1.Top < 5520) And (Shape1.Left > 4500 And Shape1.Left < 6000) Then
Sq4x4.Visible = True
Else
Sq4x4.Visible = False
End If

If (Shape1.Top > 4140 And Shape1.Top < 5520) And (Shape1.Left > 6000 And Shape1.Left < 7500) Then
Sq4x5.Visible = True
Else
Sq4x5.Visible = False
End If

If (Shape1.Top > 4140 And Shape1.Top < 5520) And (Shape1.Left > 7500 And Shape1.Left < 9000) Then
Sq4x6.Visible = True
Else
Sq4x6.Visible = False
End If

If (Shape1.Top > 4140 And Shape1.Top < 5520) And (Shape1.Left > 9000 And Shape1.Left < 10500) Then
Sq4x7.Visible = True
Else
Sq4x7.Visible = False
End If


If (Shape1.Top > 5520 And Shape1.Top < 6900) And Shape1.Left < 1500 Then
Sq5x1.Visible = True
Else
Sq5x1.Visible = False
End If

If (Shape1.Top > 5520 And Shape1.Top < 6900) And (Shape1.Left > 1500 And Shape1.Left < 3000) Then
Sq5x2.Visible = True
Else
Sq5x2.Visible = False
End If

If (Shape1.Top > 5520 And Shape1.Top < 6900) And (Shape1.Left > 3000 And Shape1.Left < 4500) Then
Sq5x3.Visible = True
Else
Sq5x3.Visible = False
End If

If (Shape1.Top > 5520 And Shape1.Top < 6900) And (Shape1.Left > 4500 And Shape1.Left < 6000) Then
Sq5x4.Visible = True
Else
Sq5x4.Visible = False
End If

If (Shape1.Top > 5520 And Shape1.Top < 6900) And (Shape1.Left > 6000 And Shape1.Left < 7500) Then
Sq5x5.Visible = True
Else
Sq5x5.Visible = False
End If

If (Shape1.Top > 5520 And Shape1.Top < 6900) And (Shape1.Left > 7500 And Shape1.Left < 9000) Then
Sq5x6.Visible = True
Else
Sq5x6.Visible = False
End If

If (Shape1.Top > 5520 And Shape1.Top < 6900) And (Shape1.Left > 9000 And Shape1.Left < 10500) Then
Sq5x7.Visible = True
Else
Sq5x7.Visible = False
End If


If Shape1.Top > 6900 And Shape1.Left < 1500 Then
Sq6x1.Visible = True
Else
Sq6x1.Visible = False
End If

If Shape1.Top > 6900 And (Shape1.Left > 1500 And Shape1.Left < 3000) Then
Sq6x2.Visible = True
Else
Sq6x2.Visible = False
End If

If Shape1.Top > 6900 And (Shape1.Left > 3000 And Shape1.Left < 4500) Then
Sq6x3.Visible = True
Else
Sq6x3.Visible = False
End If

If Shape1.Top > 6900 And (Shape1.Left > 4500 And Shape1.Left < 6000) Then
Sq6x4.Visible = True
Else
Sq6x4.Visible = False
End If

If Shape1.Top > 6900 And (Shape1.Left > 6000 And Shape1.Left < 7500) Then
Sq6x5.Visible = True
Else
Sq6x5.Visible = False
End If

If Shape1.Top > 6900 And (Shape1.Left > 7500 And Shape1.Left < 9000) Then
Sq6x6.Visible = True
Else
Sq6x6.Visible = False
End If

If Shape1.Top > 6900 And (Shape1.Left > 9000 And Shape1.Left < 10500) Then
Sq6x7.Visible = True
Else
Sq6x7.Visible = False
End If
End Sub

Private Sub Up_Click()
Label4.Tag = 2
End Sub