VERSION 5.00
Begin VB.Form Form5 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Players Movements"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form5"
   ScaleHeight     =   11010
   ScaleWidth      =   15240
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Command7 
      Caption         =   "Eraser"
      Height          =   495
      Left            =   3000
      TabIndex        =   25
      Top             =   1440
      Width           =   1215
   End
   Begin VB.CommandButton Command5 
      BackColor       =   &H000000FF&
      Caption         =   "Red"
      Height          =   495
      Left            =   1680
      Style           =   1  'Graphical
      TabIndex        =   24
      Top             =   840
      Width           =   1215
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Black"
      Height          =   495
      Left            =   1680
      TabIndex        =   23
      Top             =   1440
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Exit"
      Height          =   495
      Left            =   360
      TabIndex        =   5
      Top             =   240
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Previous"
      Height          =   495
      Left            =   360
      TabIndex        =   4
      Top             =   840
      Width           =   1215
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Excel 8.0;"
      DatabaseName    =   "C:\Documents and Settings\Gregers\My Documents\Newcastle\trial\Book1.xls"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   3960
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   0  'Table
      RecordSource    =   "Sheet2$"
      Top             =   840
      Visible         =   0   'False
      Width           =   1740
   End
   Begin VB.Data Data2 
      Caption         =   "Data2"
      Connect         =   "Excel 8.0;"
      DatabaseName    =   "C:\Documents and Settings\Gregers\My Documents\Newcastle\trial\Book1.xls"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   5760
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   0  'Table
      RecordSource    =   "Sheet3$"
      Top             =   840
      Visible         =   0   'False
      Width           =   1785
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Next"
      Height          =   495
      Left            =   360
      TabIndex        =   3
      Top             =   1440
      Width           =   1215
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Print"
      Height          =   495
      Left            =   1680
      TabIndex        =   2
      Top             =   240
      Width           =   1215
   End
   Begin VB.Data Data3 
      Caption         =   "Data3"
      Connect         =   "Excel 8.0;"
      DatabaseName    =   "C:\Documents and Settings\Gregers\My Documents\Newcastle\trial\Book1.xls"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   7560
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   0  'Table
      RecordSource    =   "Sheet1$"
      Top             =   840
      Visible         =   0   'False
      Width           =   1740
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   7080
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   240
      Width           =   3495
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Left            =   1200
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   10560
      Width           =   9615
   End
   Begin VB.Shape Shape19 
      BackStyle       =   1  'Opaque
      BorderStyle     =   0  'Transparent
      Height          =   375
      Left            =   5400
      Shape           =   4  'Rounded Rectangle
      Top             =   3720
      Width           =   855
   End
   Begin VB.Line Line11 
      X1              =   6720
      X2              =   6720
      Y1              =   1680
      Y2              =   2160
   End
   Begin VB.Line Line10 
      X1              =   5040
      X2              =   5040
      Y1              =   1680
      Y2              =   2160
   End
   Begin VB.Line Line9 
      X1              =   5040
      X2              =   6720
      Y1              =   1680
      Y2              =   1680
   End
   Begin VB.Line Line8 
      X1              =   4080
      X2              =   7680
      Y1              =   3000
      Y2              =   3000
   End
   Begin VB.Line Line7 
      X1              =   7680
      X2              =   7680
      Y1              =   2160
      Y2              =   3000
   End
   Begin VB.Line Line6 
      X1              =   4080
      X2              =   4080
      Y1              =   2160
      Y2              =   3000
   End
   Begin VB.Line Line5 
      X1              =   9600
      X2              =   9600
      Y1              =   2160
      Y2              =   4080
   End
   Begin VB.Line Line4 
      X1              =   2160
      X2              =   2160
      Y1              =   2160
      Y2              =   4080
   End
   Begin VB.Line Line3 
      X1              =   2160
      X2              =   9600
      Y1              =   4080
      Y2              =   4080
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      DataField       =   "b1"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   32
      Left            =   120
      OLEDropMode     =   1  'Manual
      TabIndex        =   47
      Top             =   2640
      Width           =   540
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      DataField       =   "b2"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   31
      Left            =   120
      TabIndex        =   46
      Top             =   3240
      Width           =   540
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      DataField       =   "b3"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   30
      Left            =   120
      TabIndex        =   45
      Top             =   3840
      Width           =   540
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      DataField       =   "b4"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   29
      Left            =   120
      TabIndex        =   44
      Top             =   4440
      Width           =   540
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      DataField       =   "b5"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   28
      Left            =   120
      TabIndex        =   43
      Top             =   5040
      Width           =   540
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      DataField       =   "b6"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   27
      Left            =   120
      TabIndex        =   42
      Top             =   5640
      Width           =   540
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      DataField       =   "b7"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   26
      Left            =   120
      TabIndex        =   41
      Top             =   6240
      Width           =   540
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      DataField       =   "b8"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   25
      Left            =   120
      TabIndex        =   40
      Top             =   6840
      Width           =   540
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      DataField       =   "b9"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   24
      Left            =   120
      TabIndex        =   39
      Top             =   7440
      Width           =   540
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      DataField       =   "b10"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   23
      Left            =   120
      TabIndex        =   38
      Top             =   8040
      Width           =   540
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      DataField       =   "b11"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   22
      Left            =   120
      TabIndex        =   37
      Top             =   8640
      Width           =   540
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label5"
      DataField       =   "a1"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   0
      Left            =   360
      TabIndex        =   36
      Top             =   2400
      Width           =   585
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label5"
      DataField       =   "a2"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   1
      Left            =   360
      TabIndex        =   35
      Top             =   3000
      Width           =   585
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label5"
      DataField       =   "a3"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   2
      Left            =   360
      TabIndex        =   34
      Top             =   3600
      Width           =   585
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label5"
      DataField       =   "a4"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   3
      Left            =   360
      TabIndex        =   33
      Top             =   4200
      Width           =   585
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label5"
      DataField       =   "a5"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   4
      Left            =   360
      TabIndex        =   32
      Top             =   4800
      Width           =   585
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label5"
      DataField       =   "a6"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   5
      Left            =   360
      TabIndex        =   31
      Top             =   5400
      Width           =   585
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label5"
      DataField       =   "a7"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   6
      Left            =   360
      TabIndex        =   30
      Top             =   6000
      Width           =   585
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label5"
      DataField       =   "a8"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   7
      Left            =   360
      TabIndex        =   29
      Top             =   6600
      Width           =   585
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label5"
      DataField       =   "a9"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   8
      Left            =   360
      TabIndex        =   28
      Top             =   7200
      Width           =   585
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label5"
      DataField       =   "a10"
      DataSource      =   "Data1"
      DragMode        =   1  'Automatic
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   9
      Left            =   360
      TabIndex        =   27
      Top             =   7800
      Width           =   585
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label5"
      DataField       =   "a11"
      DataSource      =   "Data1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   195
      Index           =   10
      Left            =   360
      TabIndex        =   26
      Top             =   8400
      Width           =   585
   End
   Begin VB.Shape Shape3 
      BackColor       =   &H00FFFFFF&
      FillColor       =   &H00FFFFFF&
      Height          =   735
      Left            =   5160
      Shape           =   3  'Circle
      Top             =   5400
      Width           =   1455
   End
   Begin VB.Shape Shape5 
      FillStyle       =   0  'Solid
      Height          =   255
      Index           =   1
      Left            =   5760
      Shape           =   3  'Circle
      Top             =   8040
      Width           =   135
   End
   Begin VB.Shape Shape5 
      FillStyle       =   0  'Solid
      Height          =   255
      Index           =   0
      Left            =   5760
      Shape           =   3  'Circle
      Top             =   3360
      Width           =   135
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H0000FF00&
      BackStyle       =   1  'Opaque
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   855
      Index           =   1
      Left            =   4080
      Top             =   8640
      Width           =   3855
   End
   Begin VB.Line Line2 
      Index           =   2
      X1              =   1080
      X2              =   10680
      Y1              =   5760
      Y2              =   5760
   End
   Begin VB.Line Line2 
      Index           =   1
      X1              =   1080
      X2              =   10680
      Y1              =   9480
      Y2              =   9480
   End
   Begin VB.Line Line2 
      Index           =   0
      X1              =   1080
      X2              =   10680
      Y1              =   2160
      Y2              =   2160
   End
   Begin VB.Line Line1 
      Index           =   1
      X1              =   10680
      X2              =   10680
      Y1              =   2160
      Y2              =   9480
   End
   Begin VB.Line Line1 
      Index           =   0
      X1              =   1080
      X2              =   1080
      Y1              =   2160
      Y2              =   9480
   End
   Begin VB.Shape Shape18 
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   5040
      Top             =   9480
      Width           =   1815
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      DataField       =   "a1"
      DataSource      =   "Data2"
      DragMode        =   1  'Automatic
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   11
      Left            =   11160
      TabIndex        =   22
      Top             =   2160
      Width           =   510
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      DataField       =   "a2"
      DataSource      =   "Data2"
      DragMode        =   1  'Automatic
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   12
      Left            =   11160
      TabIndex        =   21
      Top             =   2520
      Width           =   510
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      DataField       =   "a3"
      DataSource      =   "Data2"
      DragMode        =   1  'Automatic
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   13
      Left            =   11160
      TabIndex        =   20
      Top             =   2880
      Width           =   510
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      DataField       =   "a4"
      DataSource      =   "Data2"
      DragMode        =   1  'Automatic
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   14
      Left            =   11160
      TabIndex        =   19
      Top             =   3240
      Width           =   510
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      DataField       =   "a5"
      DataSource      =   "Data2"
      DragMode        =   1  'Automatic
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   15
      Left            =   11160
      TabIndex        =   18
      Top             =   3600
      Width           =   510
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      DataField       =   "a6"
      DataSource      =   "Data2"
      DragMode        =   1  'Automatic
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   16
      Left            =   11160
      TabIndex        =   17
      Top             =   3960
      Width           =   510
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      DataField       =   "a7"
      DataSource      =   "Data2"
      DragMode        =   1  'Automatic
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   17
      Left            =   11160
      TabIndex        =   16
      Top             =   4320
      Width           =   510
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      DataField       =   "a8"
      DataSource      =   "Data2"
      DragMode        =   1  'Automatic
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   18
      Left            =   11160
      TabIndex        =   15
      Top             =   4680
      Width           =   510
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      DataField       =   "a9"
      DataSource      =   "Data2"
      DragMode        =   1  'Automatic
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   19
      Left            =   11160
      TabIndex        =   14
      Top             =   5040
      Width           =   510
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      DataField       =   "a10"
      DataSource      =   "Data2"
      DragMode        =   1  'Automatic
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   20
      Left            =   11160
      TabIndex        =   13
      Top             =   5400
      Width           =   510
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      DataField       =   "a11"
      DataSource      =   "Data2"
      DragMode        =   1  'Automatic
      ForeColor       =   &H80000008&
      Height          =   225
      Index           =   21
      Left            =   11160
      TabIndex        =   12
      Top             =   5760
      Width           =   510
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label2"
      DataField       =   "Analysed_Team"
      DataSource      =   "Data3"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Index           =   0
      Left            =   1320
      TabIndex        =   11
      Top             =   9840
      Width           =   3375
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label2"
      DataField       =   "Opposition"
      DataSource      =   "Data3"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   6960
      TabIndex        =   10
      Top             =   9840
      Width           =   3375
   End
   Begin VB.Label Label3 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Analysed Team"
      Height          =   255
      Index           =   0
      Left            =   1320
      TabIndex        =   9
      Top             =   9600
      Width           =   2415
   End
   Begin VB.Label Label3 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Opposition"
      Height          =   255
      Index           =   1
      Left            =   6960
      TabIndex        =   8
      Top             =   9600
      Width           =   2415
   End
   Begin VB.Label Label4 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Players Movements"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3240
      TabIndex        =   7
      Top             =   240
      Width           =   3735
   End
   Begin VB.Label Label3 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Comments"
      Height          =   255
      Index           =   2
      Left            =   1200
      TabIndex        =   6
      Top             =   10320
      Width           =   2415
   End
   Begin VB.Shape Shape17 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   10680
      Top             =   9000
      Width           =   375
   End
   Begin VB.Shape Shape16 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   10320
      Top             =   9480
      Width           =   855
   End
   Begin VB.Shape Shape15 
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   10200
      Shape           =   3  'Circle
      Top             =   9240
      Width           =   975
   End
   Begin VB.Shape Shape7 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   600
      Top             =   9480
      Width           =   855
   End
   Begin VB.Shape Shape8 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   720
      Top             =   9000
      Width           =   375
   End
   Begin VB.Shape Shape6 
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   600
      Shape           =   3  'Circle
      Top             =   9240
      Width           =   975
   End
   Begin VB.Shape Shape11 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   735
      Left            =   600
      Top             =   2040
      Width           =   495
   End
   Begin VB.Shape Shape10 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   840
      Top             =   1680
      Width           =   855
   End
   Begin VB.Shape Shape9 
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   600
      Shape           =   3  'Circle
      Top             =   1920
      Width           =   975
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H0000FF00&
      BackStyle       =   1  'Opaque
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   1
      Left            =   2160
      Top             =   7560
      Width           =   7455
   End
   Begin VB.Shape Shape4 
      BackColor       =   &H0000FF00&
      BackStyle       =   1  'Opaque
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   615
      Index           =   1
      Left            =   5160
      Shape           =   3  'Circle
      Top             =   7320
      Width           =   1335
   End
   Begin VB.Shape Shape14 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   10680
      Top             =   2040
      Width           =   375
   End
   Begin VB.Shape Shape13 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   10080
      Top             =   1680
      Width           =   855
   End
   Begin VB.Shape Shape12 
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   495
      Left            =   10200
      Shape           =   3  'Circle
      Top             =   1920
      Width           =   975
   End
   Begin VB.Shape Shape4 
      BackColor       =   &H00FFFFFF&
      FillColor       =   &H00FFFFFF&
      Height          =   615
      Index           =   0
      Left            =   5160
      Shape           =   3  'Circle
      Top             =   3720
      Width           =   1335
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DrawNow As Boolean

Private Sub Command5_Click()
    ForeColor = RGB(255, 0, 0)
    DrawStyle = 2
    DrawWidth = 1
End Sub

Private Sub Command6_Click()
    ForeColor = RGB(0, 0, 0)
    DrawStyle = 0
    DrawWidth = 1
End Sub

Private Sub Command7_Click()
    ForeColor = RGB(255, 255, 255)
    DrawStyle = 0
    DrawWidth = 8
    
End Sub

Private Sub Form_MouseDown(Button As Integer, _
      Shift As Integer, X As Single, Y As Single)
   If Button = vbLeftButton Then
      DrawNow = True
      CurrentX = X
      CurrentY = Y
   ElseIf Button = vbRightButton Then
      Line -(X, Y)
   End If
End Sub

Private Sub Form_MouseMove(Button As Integer, _
      Shift As Integer, X As Single, Y As Single)
   If DrawNow Then Line -(X, Y)
End Sub

Private Sub Form_MouseUp(Button As Integer, _
      Shift As Integer, X As Single, Y As Single)
   If Button = vbLeftButton Then DrawNow = False
   
End Sub

Private Sub Form_Load()
   DrawWidth = 1      ' Use wider brush.
   ForeColor = RGB(0, 0, 0)   ' Set drawing color.
   AutoRedraw = True
   
End Sub

Private Sub Command1_Click()
    Unload Me

End Sub

Private Sub Command2_Click()
    Form4.Show
    Unload Me

End Sub

Private Sub Command3_Click()
    Form6.Show
    Unload Me

End Sub

Private Sub Command4_Click()
    Command1.Visible = False
    Command2.Visible = False
    Command3.Visible = False
    Command4.Visible = False
    Command5.Visible = False
    Command6.Visible = False
    Command7.Visible = False
    
    PrintForm
    
    Command1.Visible = True
    Command2.Visible = True
    Command3.Visible = True
    Command4.Visible = True
    Command5.Visible = True
    Command6.Visible = True
    Command7.Visible = True
    

End Sub

Private Sub Form_DragDrop(Source As Control, _
      X As Single, Y As Single)
   Source.Move (X - Source.Width / 2), _
      (Y - Source.Height / 2)
      
            
End Sub