Form1.frm

 VERSION 5.00
Begin VB.Form Form1
   BackColor       =   &H00FFFF80&
   Caption         =   """Challenger x Sudoku !!! ""  Sudoku Solver Designed by M.M.Kahlil"
   ClientHeight    =   8190
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   11880
   BeginProperty Font
      Name            =   "Tahoma"
      Size            =   12
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   8190
   ScaleMode       =   0  'User
   ScaleWidth      =   12000
   Begin VB.Frame aboutfrm
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Caption         =   "Frame8"
      Height          =   885
      Left            =   0
      TabIndex        =   125
      Top             =   0
      Visible         =   0   'False
      Width           =   1095
      Begin VB.CommandButton returncmd
         BackColor       =   &H00FFC0C0&
         Caption         =   "Back"
         Height          =   615
         Left            =   0
         Style           =   1  'Graphical
         TabIndex        =   128
         Top             =   1440
         Width           =   1875
      End
      Begin VB.Label aboutuslbl
         BackColor       =   &H00FFFF80&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   7335
         Left            =   960
         TabIndex        =   126
         Top             =   360
         Width           =   7095
      End
   End
   Begin VB.Timer Timer2
      Interval        =   100
      Left            =   2160
      Top             =   0
   End
   Begin VB.Frame frmsave
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Caption         =   "Frame8"
      ForeColor       =   &H00FFFFC0&
      Height          =   7365
      Left            =   1320
      TabIndex        =   2
      Top             =   960
      Visible         =   0   'False
      Width           =   7095
      Begin VB.TextBox savedname
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFF80&
         ForeColor       =   &H00800000&
         Height          =   405
         Left            =   1200
         TabIndex        =   130
         Top             =   5880
         Width           =   4335
      End
      Begin VB.CheckBox save3
         BackColor       =   &H00FFFF80&
         Caption         =   "Save puzzle and solution "
         Enabled         =   0   'False
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   495
         Left            =   840
         TabIndex        =   11
         Top             =   3480
         Width           =   3615
      End
      Begin VB.CheckBox save2
         BackColor       =   &H00FFFF80&
         Caption         =   "Save Solution only"
         Enabled         =   0   'False
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   495
         Left            =   840
         TabIndex        =   10
         Top             =   2520
         Width           =   3615
      End
      Begin VB.CheckBox save1
         BackColor       =   &H00FFFF80&
         Caption         =   "Save puzzle only"
         Enabled         =   0   'False
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   495
         Left            =   840
         TabIndex        =   9
         Top             =   1680
         Value           =   1  'Checked
         Width           =   3615
      End
      Begin VB.CommandButton cancelsave
         BackColor       =   &H008080FF&
         Caption         =   "Back"
         Height          =   615
         Left            =   3840
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   6480
         Width           =   1695
      End
      Begin VB.CommandButton savenow
         BackColor       =   &H00FFC0C0&
         Caption         =   "Save now"
         Height          =   615
         Left            =   1200
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   6480
         Width           =   1695
      End
      Begin VB.Label Label9
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Please enter puzzle name"
         ForeColor       =   &H00FF8080&
         Height          =   285
         Left            =   1440
         TabIndex        =   129
         Top             =   5400
         Width           =   3795
      End
      Begin VB.Label notes
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "   The Puzzle did not solved yet.   you will save the puzzle only"
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   20.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   1095
         Left            =   120
         TabIndex        =   14
         Top             =   4080
         Visible         =   0   'False
         Width           =   7095
      End
      Begin VB.Label Label4
         BackStyle       =   0  'Transparent
         Caption         =   "(3)"
         ForeColor       =   &H00400040&
         Height          =   255
         Left            =   360
         TabIndex        =   8
         Top             =   3600
         Width           =   375
      End
      Begin VB.Label Label3
         BackStyle       =   0  'Transparent
         Caption         =   "(2)"
         ForeColor       =   &H00400040&
         Height          =   255
         Left            =   360
         TabIndex        =   7
         Top             =   2640
         Width           =   375
      End
      Begin VB.Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "(1)"
         ForeColor       =   &H00400040&
         Height          =   255
         Left            =   360
         TabIndex        =   6
         Top             =   1800
         Width           =   375
      End
      Begin VB.Label Label1
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Save options"
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   24
            Charset         =   0
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   615
         Left            =   1680
         TabIndex        =   3
         Top             =   720
         Width           =   3855
      End
   End
   Begin VB.Frame numfrm
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      Height          =   7365
      Left            =   2760
      TabIndex        =   27
      Top             =   1080
      Width           =   7095
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   0
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   115
         Top             =   480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   1
         Left            =   960
         Style           =   1  'Graphical
         TabIndex        =   114
         Top             =   480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   2
         Left            =   1680
         Style           =   1  'Graphical
         TabIndex        =   113
         Top             =   480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   3
         Left            =   2520
         Style           =   1  'Graphical
         TabIndex        =   112
         Top             =   480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   4
         Left            =   3240
         Style           =   1  'Graphical
         TabIndex        =   111
         Top             =   480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   5
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   110
         Top             =   480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   6
         Left            =   4800
         Style           =   1  'Graphical
         TabIndex        =   109
         Top             =   480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   7
         Left            =   5520
         Style           =   1  'Graphical
         TabIndex        =   108
         Top             =   480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   8
         Left            =   6240
         Style           =   1  'Graphical
         TabIndex        =   107
         Top             =   480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   9
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   106
         Top             =   1200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   10
         Left            =   960
         Style           =   1  'Graphical
         TabIndex        =   105
         Top             =   1200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   11
         Left            =   1680
         Style           =   1  'Graphical
         TabIndex        =   104
         Top             =   1200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   12
         Left            =   2520
         Style           =   1  'Graphical
         TabIndex        =   103
         Top             =   1200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   13
         Left            =   3240
         Style           =   1  'Graphical
         TabIndex        =   102
         Top             =   1200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   14
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   101
         Top             =   1200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   15
         Left            =   4800
         Style           =   1  'Graphical
         TabIndex        =   100
         Top             =   1200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   16
         Left            =   5520
         Style           =   1  'Graphical
         TabIndex        =   99
         Top             =   1200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   17
         Left            =   6240
         Style           =   1  'Graphical
         TabIndex        =   98
         Top             =   1200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   18
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   97
         Top             =   1920
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   19
         Left            =   960
         Style           =   1  'Graphical
         TabIndex        =   96
         Top             =   1920
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   20
         Left            =   1680
         Style           =   1  'Graphical
         TabIndex        =   95
         Top             =   1920
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   21
         Left            =   2520
         Style           =   1  'Graphical
         TabIndex        =   94
         Top             =   1920
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   22
         Left            =   3240
         Style           =   1  'Graphical
         TabIndex        =   93
         Top             =   1920
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   23
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   92
         Top             =   1920
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   24
         Left            =   4800
         Style           =   1  'Graphical
         TabIndex        =   91
         Top             =   1920
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   25
         Left            =   5520
         Style           =   1  'Graphical
         TabIndex        =   90
         Top             =   1920
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   26
         Left            =   6240
         Style           =   1  'Graphical
         TabIndex        =   89
         Top             =   1920
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   27
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   88
         Top             =   2760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   28
         Left            =   960
         Style           =   1  'Graphical
         TabIndex        =   87
         Top             =   2760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   29
         Left            =   1680
         Style           =   1  'Graphical
         TabIndex        =   86
         Top             =   2760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   30
         Left            =   2520
         Style           =   1  'Graphical
         TabIndex        =   85
         Top             =   2760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   31
         Left            =   3240
         Style           =   1  'Graphical
         TabIndex        =   84
         Top             =   2760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   32
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   83
         Top             =   2760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   33
         Left            =   4800
         Style           =   1  'Graphical
         TabIndex        =   82
         Top             =   2760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   34
         Left            =   5520
         Style           =   1  'Graphical
         TabIndex        =   81
         Top             =   2760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   35
         Left            =   6240
         Style           =   1  'Graphical
         TabIndex        =   80
         Top             =   2760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   36
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   79
         Top             =   3480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   37
         Left            =   960
         Style           =   1  'Graphical
         TabIndex        =   78
         Top             =   3480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   38
         Left            =   1680
         Style           =   1  'Graphical
         TabIndex        =   77
         Top             =   3480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   39
         Left            =   2520
         Style           =   1  'Graphical
         TabIndex        =   76
         Top             =   3480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   40
         Left            =   3240
         Style           =   1  'Graphical
         TabIndex        =   75
         Top             =   3480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   41
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   74
         Top             =   3480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   42
         Left            =   4800
         Style           =   1  'Graphical
         TabIndex        =   73
         Top             =   3480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   43
         Left            =   5520
         Style           =   1  'Graphical
         TabIndex        =   72
         Top             =   3480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   44
         Left            =   6240
         Style           =   1  'Graphical
         TabIndex        =   71
         Top             =   3480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   45
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   70
         Top             =   4200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   46
         Left            =   960
         Style           =   1  'Graphical
         TabIndex        =   69
         Top             =   4200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   47
         Left            =   1680
         Style           =   1  'Graphical
         TabIndex        =   68
         Top             =   4200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   48
         Left            =   2520
         Style           =   1  'Graphical
         TabIndex        =   67
         Top             =   4200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   49
         Left            =   3240
         Style           =   1  'Graphical
         TabIndex        =   66
         Top             =   4200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   50
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   65
         Top             =   4200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   51
         Left            =   4800
         Style           =   1  'Graphical
         TabIndex        =   64
         Top             =   4200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   52
         Left            =   5520
         Style           =   1  'Graphical
         TabIndex        =   63
         Top             =   4200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   53
         Left            =   6240
         Style           =   1  'Graphical
         TabIndex        =   62
         Top             =   4200
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   54
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   61
         Top             =   5040
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   55
         Left            =   960
         Style           =   1  'Graphical
         TabIndex        =   60
         Top             =   5040
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   56
         Left            =   1680
         Style           =   1  'Graphical
         TabIndex        =   59
         Top             =   5040
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   57
         Left            =   2520
         Style           =   1  'Graphical
         TabIndex        =   58
         Top             =   5040
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   58
         Left            =   3240
         Style           =   1  'Graphical
         TabIndex        =   57
         Top             =   5040
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   59
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   56
         Top             =   5040
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   60
         Left            =   4800
         Style           =   1  'Graphical
         TabIndex        =   55
         Top             =   5040
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   61
         Left            =   5520
         Style           =   1  'Graphical
         TabIndex        =   54
         Top             =   5040
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   62
         Left            =   6240
         Style           =   1  'Graphical
         TabIndex        =   53
         Top             =   5040
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   63
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   52
         Top             =   5760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   64
         Left            =   960
         Style           =   1  'Graphical
         TabIndex        =   51
         Top             =   5760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   65
         Left            =   1680
         Style           =   1  'Graphical
         TabIndex        =   50
         Top             =   5760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   66
         Left            =   2520
         Style           =   1  'Graphical
         TabIndex        =   49
         Top             =   5760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   67
         Left            =   3240
         Style           =   1  'Graphical
         TabIndex        =   48
         Top             =   5760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   68
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   47
         Top             =   5760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   69
         Left            =   4800
         Style           =   1  'Graphical
         TabIndex        =   46
         Top             =   5760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   70
         Left            =   5520
         Style           =   1  'Graphical
         TabIndex        =   45
         Top             =   5760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   71
         Left            =   6240
         Style           =   1  'Graphical
         TabIndex        =   44
         Top             =   5760
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   72
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   43
         Top             =   6480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   73
         Left            =   960
         Style           =   1  'Graphical
         TabIndex        =   42
         Top             =   6480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   74
         Left            =   1680
         Style           =   1  'Graphical
         TabIndex        =   41
         Top             =   6480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   75
         Left            =   2520
         Style           =   1  'Graphical
         TabIndex        =   40
         Top             =   6480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   76
         Left            =   3240
         Style           =   1  'Graphical
         TabIndex        =   39
         Top             =   6480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   77
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   38
         Top             =   6480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   78
         Left            =   4800
         Style           =   1  'Graphical
         TabIndex        =   37
         Top             =   6480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   79
         Left            =   5520
         Style           =   1  'Graphical
         TabIndex        =   36
         Top             =   6480
         Width           =   650
      End
      Begin VB.CommandButton cell
         BackColor       =   &H00C0FFFF&
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   650
         Index           =   80
         Left            =   6240
         Style           =   1  'Graphical
         TabIndex        =   35
         Top             =   6480
         Width           =   650
      End
      Begin VB.Frame Frame1
         BackColor       =   &H00808000&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   6615
         Left            =   2280
         TabIndex        =   34
         Top             =   480
         Width           =   255
      End
      Begin VB.Frame Frame2
         BackColor       =   &H00808000&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   6615
         Left            =   4560
         TabIndex        =   33
         Top             =   480
         Width           =   255
      End
      Begin VB.Frame Frame4
         BackColor       =   &H00808000&
         BorderStyle     =   0  'None
         Caption         =   "Frame3"
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   32
         Top             =   4800
         Width           =   7095
      End
      Begin VB.Frame Frame5
         BackColor       =   &H00808000&
         BorderStyle     =   0  'None
         Caption         =   "Frame3"
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   280
         Left            =   240
         TabIndex        =   31
         Top             =   7080
         Width           =   7095
      End
      Begin VB.Frame Frame6
         BackColor       =   &H00808000&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   6735
         Left            =   6840
         TabIndex        =   30
         Top             =   360
         Width           =   255
      End
      Begin VB.Frame Frame3
         BackColor       =   &H00808000&
         BorderStyle     =   0  'None
         Caption         =   "Frame3"
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   29
         Top             =   2520
         Width           =   7095
      End
      Begin VB.Frame Frame7
         BackColor       =   &H00808000&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   7215
         Left            =   0
         TabIndex        =   28
         Top             =   360
         Width           =   255
      End
      Begin VB.Label Label5
         Alignment       =   2  'Center
         BackColor       =   &H00808000&
         Caption         =   "This application degined by M.M.Khalil.    Email: khlilism2000@yahoo.com"
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   495
         Left            =   0
         TabIndex        =   116
         Top             =   0
         Width           =   7095
      End
   End
   Begin VB.Frame ssfrm
      BackColor       =   &H00FFFF80&
      Caption         =   "Samples and  saved"
      BeginProperty Font
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   6400
      Left            =   9720
      TabIndex        =   22
      Top             =   1200
      Width           =   2055
      Begin VB.CommandButton loadsaved
         BackColor       =   &H00FFC0C0&
         Caption         =   "Saved puzzle"
         Height          =   615
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   24
         Top             =   960
         Width           =   1881
      End
      Begin VB.CommandButton loadpuzzle
         BackColor       =   &H00FFC0C0&
         Caption         =   "Samples"
         Height          =   615
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   23
         Top             =   360
         Width           =   1881
      End
      Begin VB.ListBox samplelist
         Appearance      =   0  'Flat
         BackColor       =   &H00FFC0C0&
         ForeColor       =   &H00800000&
         Height          =   3450
         ItemData        =   "Form1.frx":000C
         Left            =   120
         List            =   "Form1.frx":001C
         TabIndex        =   26
         Top             =   1680
         Visible         =   0   'False
         Width           =   1875
      End
      Begin VB.ListBox savedlist
         Appearance      =   0  'Flat
         BackColor       =   &H00FFC0C0&
         ForeColor       =   &H00800000&
         Height          =   3450
         ItemData        =   "Form1.frx":002C
         Left            =   120
         List            =   "Form1.frx":002E
         TabIndex        =   25
         Top             =   1680
         Visible         =   0   'False
         Width           =   1875
      End
      Begin VB.Label reqlbl
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   14.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF8080&
         Height          =   375
         Left            =   0
         TabIndex        =   120
         Top             =   6000
         Width           =   2055
      End
      Begin VB.Label givlbl
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         BeginProperty Font
            Name            =   "Tahoma"
            Size            =   14.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF8080&
         Height          =   375
         Left            =   0
         TabIndex        =   119
         Top             =   5400
         Width           =   2055
      End
      Begin VB.Label Label7
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Required:"
         ForeColor       =   &H000000C0&
         Height          =   285
         Left            =   360
         TabIndex        =   118
         Top             =   5700
         Width           =   1215
      End
      Begin VB.Label Label6
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Given:"
         ForeColor       =   &H000000C0&
         Height          =   285
         Left            =   600
         TabIndex        =   117
         Top             =   5160
         Width           =   795
      End
   End
   Begin VB.Frame taskfrm
      BackColor       =   &H00FFFF80&
      Caption         =   "Tasks"
      ForeColor       =   &H00800000&
      Height          =   6400
      Left            =   120
      TabIndex        =   15
      Top             =   1200
      Width           =   2055
      Begin VB.CommandButton Features
         BackColor       =   &H00FFC0C0&
         Caption         =   "Features"
         Height          =   615
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   127
         Top             =   3960
         Width           =   1875
      End
      Begin VB.CheckBox slidebar
         BackColor       =   &H00FFFF80&
         Caption         =   "Stop bar"
         ForeColor       =   &H000000FF&
         Height          =   375
         Left            =   120
         TabIndex        =   124
         Top             =   6000
         Width           =   1815
      End
      Begin VB.CommandButton slovenow
         BackColor       =   &H00FFC0C0&
         Caption         =   "Get Solution"
         Height          =   615
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   21
         Top             =   2520
         Width           =   1875
      End
      Begin VB.CommandButton clearnum
         BackColor       =   &H00FFC0C0&
         Caption         =   "Clear"
         Height          =   615
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   20
         Top             =   1080
         Width           =   1881
      End
      Begin VB.CommandButton savepuzzle
         BackColor       =   &H00FFC0C0&
         Caption         =   "Save"
         Height          =   615
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   19
         Top             =   1800
         Width           =   1881
      End
      Begin VB.CommandButton mailme
         BackColor       =   &H00FFC0C0&
         Caption         =   "Mail Me"
         Height          =   615
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   18
         Top             =   3240
         Width           =   1881
      End
      Begin VB.CommandButton exitt
         BackColor       =   &H00FFC0C0&
         Caption         =   "Exit"
         Height          =   615
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   17
         Top             =   4680
         Width           =   1881
      End
      Begin VB.CommandButton newslove
         BackColor       =   &H00FFC0C0&
         Caption         =   "New"
         Height          =   615
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   16
         Top             =   360
         Width           =   1875
      End
      Begin VB.Label lvllbl
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00C00000&
         Height          =   285
         Left            =   240
         TabIndex        =   123
         Top             =   5650
         Width           =   1575
      End
      Begin VB.Label Label8
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "puzzle Level:"
         ForeColor       =   &H00404000&
         Height          =   285
         Left            =   240
         TabIndex        =   122
         Top             =   5295
         Width           =   1635
      End
   End
   Begin VB.Timer Timer1
      Interval        =   1
      Left            =   2520
      Top             =   0
   End
   Begin VB.FileListBox File1
      Height          =   945
      Left            =   5040
      Pattern         =   "*.txt"
      TabIndex        =   13
      Top             =   0
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.DirListBox Dir1
      Height          =   720
      Left            =   7560
      TabIndex        =   12
      Top             =   120
      Visible         =   0   'False
      Width           =   3255
   End
   Begin VB.ListBox List1
      Height          =   1770
      Left            =   2160
      TabIndex        =   1
      Top             =   -600
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Label wiselbl
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFF80&
      BackStyle       =   0  'Transparent
      Caption         =   "Being in a dark room does not mean you are a blind?"
      ForeColor       =   &H8000000D&
      Height          =   285
      Left            =   3480
      TabIndex        =   121
      Top             =   120
      Width           =   6534
   End
   Begin VB.Label waitlbl
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Please        Wait .........."
      BeginProperty Font
         Name            =   "Tahoma"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   735
      Left            =   240
      TabIndex        =   0
      Top             =   3480
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.Menu nums
      Caption         =   "select  number"
      Visible         =   0   'False
      Begin VB.Menu selctnum
         Caption         =   "select number"
      End
      Begin VB.Menu selectnum
         Caption         =   "1"
         Index           =   0
      End
      Begin VB.Menu selectnum
         Caption         =   "2"
         Index           =   1
      End
      Begin VB.Menu selectnum
         Caption         =   "3"
         Index           =   2
      End
      Begin VB.Menu selectnum
         Caption         =   "4"
         Index           =   3
      End
      Begin VB.Menu selectnum
         Caption         =   "5"
         Index           =   4
      End
      Begin VB.Menu selectnum
         Caption         =   "6"
         Index           =   5
      End
      Begin VB.Menu selectnum
         Caption         =   "7"
         Index           =   6
      End
      Begin VB.Menu selectnum
         Caption         =   "8"
         Index           =   7
      End
      Begin VB.Menu selectnum
         Caption         =   "9"
         Index           =   8
      End
      Begin VB.Menu clearit
         Caption         =   "clear number"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim unsolved(1 To 9, 1 To 9), solved(1 To 9, 1 To 9) As Byte
Dim dataarray(80) As String
Dim srtagn, finshed As Boolean
Dim inx, value1, s As Integer
Dim saveop, listvis As Byte
Dim wise, us As String
Dim slideop As Boolean
Dim lens As Byte
Private Sub cancelsave_Click()
visfunction 1
frmsave.Visible = False
End Sub
Private Sub cell_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim xpos, ypos As Byte
If Button = 2 Then
inx = Index
PopupMenu nums, , X + cell(Index).Left + numfrm.Left, Y + cell(Index).Top + numfrm.Top
End If
If Button = 1 Then
finshed = False: srtagn = True
save2.Enabled = False: save3.Enabled = False: notes.Visible = True
savepuzzle.Enabled = True
lvllbl = ""
clearnum.Enabled = True
inx = Index
ypos = (Index Mod 9) + 1: xpos = (Index \ 9) + 1
cell(Index).Caption = (Val(cell(Index).Caption) Mod 9) + 1
unsolved(xpos, ypos) = cell(Index).Caption
counts
End If
End Sub
Private Sub clearit_Click()
clearnum_Click
End Sub
Private Sub exitt_Click()
res = MsgBox("        Do you want Exit  ?", vbYesNo, "Challenger x Sudoku")
If res = vbYes Then End
End Sub
Private Sub Features_Click()
aboutfrm.Visible = True
End Sub

Private Sub loadsaved_Click()
Dim markr As String
File1.Refresh
samplelist.Visible = False
savedlist.Visible = True
givlbl = "": reqlbl = ""
listvis = 2
savedfolder
File1.Path = App.Path & "\saved"
If File1.ListCount = 0 Then
savedlist.Clear
savedlist.AddItem "no puzzles"
Else
savedlist.Clear
For M = 0 To File1.ListCount - 1
File1.ListIndex = M
paths = File1.Path & "" & File1.FileName
Open paths For Input As #1
k = 1
Do Until EOF(1)
Input #1, markr
If Trim(markr) <> "" Then
If k = 1 And LCase(Trim(markr)) = "sudoku solver" Then
savedlist.AddItem Left(File1.FileName, Len(File1.FileName) - 4)
k = 1
Exit Do
End If
End If
Loop
Close #1
Next
End If
End Sub
Private Sub mailme_Click()
On Error Resume Next
Shell "start mailto:khlilism2000@yahoo.com", vbNormalFocus
End Sub

Private Sub returncmd_Click()
aboutfrm.Visible = False
End Sub

Private Sub savedlist_Click()
Dim puz, txt As String
If savedlist.ListCount = 1 Then
savedlist.ListIndex = 0
If savedlist.Text = "no puzzles" Then Exit Sub
End If
paths = App.Path & "\saved" & savedlist & ".txt"
Open paths For Input As #1
Do Until EOF(1)
Input #1, puz
puz = Trim(puz)
If Left((puz), 8) = "[puzzle]" Then
txt = Right((puz), Len(puz) - 8)
Exit Do
End If
Loop
Close #1
slovenow.Visible = True
newslove_Click
srtagn = True: finshed = False
savepuzzle.Enabled = True
save2.Enabled = False: save3.Enabled = False: notes.Visible = True
clearnum.Enabled = True
givlbl = "": reqlbl = ""
For M = 1 To 81
poss = M - 1
ypos = (poss Mod 9) + 1: xpos = (poss \ 9) + 1
unsolved(xpos, ypos) = Val(Mid(txt, M, 1))
solved(xpos, ypos) = Val(Mid(txt, M, 1))
If Val(Mid(txt, M, 1)) <> 0 Then
cell(poss).Caption = Val(Mid(txt, M, 1))
givlbl = Str(Val(givlbl) + 1) & " number"
Else
reqlbl = Str(Val(reqlbl) + 1) & " number"
cell(poss).Caption = ""
End If
Next
End Sub
Private Sub savenow_Click()
Dim txt1 As String
Dim txt2 As String
Dim txt3 As String
Dim savebol As Boolean
If srtagn = True Then
If finshed = False Then
save2.Value = 0: save3.Value = 0
save2.Enabled = False: save3.Enabled = False
Else
save2.Enabled = True: save3.Enabled = True
End If
savebol = False
savedfolder
paths = App.Path & "\saved"
hh:
namepuzzle = Trim(savedname.Text)
If namepuzzle = "" Then
res = MsgBox("Please enter Puzzle name !!", , "Challenger x Sudoku")
savedname.SetFocus:  GoTo jj:
End If
If Dir(paths & LCase(Trim(namepuzzle)) & ".txt") = namepuzzle & ".txt" Then
res = MsgBox("file already exist.do you want replace it ?", vbYesNo, "Challenger x Sudoku")
If res = vbYes Then savebol = True: GoTo writes:
If res = vbNo Then
res = MsgBox("puzzle not saved.do you want save it with another name?", vbYesNo, "Challenger x Sudoku")
If res = vbYes Then
GoTo hh:
Else
GoTo jj:
End If
End If
End If
writes:
namepuzzle = LCase(Trim(namepuzzle))
txt1 = ""
If save1.Value = 1 Then
For M = 0 To 80
If finshed = True Then
If cell(M).BackColor = &HC0FFFF Then
txt1 = txt1 & cell(M).Caption
Else
txt1 = txt1 & "0"
End If
Else
ypos = (M Mod 9) + 1: xpos = (M \ 9) + 1
If unsolved(xpos, ypos) <> 0 Then
txt1 = txt1 & unsolved(xpos, ypos)
Else
txt1 = txt1 & "0"
End If
End If
Next
End If
txt2 = ""
If save2.Value = 1 Then
For M = 0 To 80
If cell(M).BackColor = &HFFFF80 Then
txt2 = txt2 & cell(M).Caption
Else
txt2 = txt2 & "0"
End If
Next
End If
txt3 = ""
If save3.Value = 1 Then
For M = 0 To 80
txt3 = txt3 & cell(M).Caption
Next
End If
If savebol = False Then
Open paths & namepuzzle & ".txt" For Append As #1
Else
Open paths & namepuzzle & ".txt" For Output As #1
End If
File1.Refresh
Print #1, "Sudoku Solver"
Print #1, "this is challenger Sudoku file.created on  " & Date & "  at  " & Time
Print #1, "this file created by using Sudoku Solver application designed by M.M.Kalil "
Print #1, "for any suggestions. please send an E.Mail   khlilism2000@yahoo.com"
Print #1, "   "
If Trim(txt1) <> "" Then
Print #1, "[puzzle]" & txt1
Print #1, "   "
End If
If Trim(txt2) <> "" Then
Print #1, "[solution]" & txt2
Print #1, "   "
End If
If Trim(txt3) <> "" Then
Print #1, "[both]" & txt3
Print #1, "   "
End If
Close #1
MsgBox "the game was saved", , "Challenger x Sudoku"
cancelsave_Click
End If
jj:
End Sub
Private Sub selectnum_Click(Index As Integer)
srtagn = True: finshed = False
clearnum.Enabled = True
savepuzzle.Enabled = True
save2.Enabled = False: save3.Enabled = False: notes.Visible = True
cell(inx).Caption = selectnum(Index).Caption
ypos = (inx Mod 9) + 1: xpos = (inx \ 9) + 1
unsolved(xpos, ypos) = Val(cell(inx).Caption)
lvllbl = ""
counts
End Sub
Private Sub clearnum_Click()
If inx >= 0 Then
srtagn = True
save2.Enabled = False: save3.Enabled = False
notes.Visible = True
cell(inx).Caption = ""
ypos = (inx Mod 9) + 1: xpos = (inx \ 9) + 1
unsolved(xpos, ypos) = 0
counts
End If
End Sub
Private Sub loadpuzzle_Click()
samplelist.Clear
For n = 1 To 50
If n < 10 Then adds = " puzzle : 0" & n
If n >= 10 Then adds = " puzzle :" & n
samplelist.AddItem adds
Next
givlbl = "": reqlbl = ""
samplelist.Visible = True
savedlist.Visible = False
listvis = 1
End Sub
Private Sub Form_Load()
samplelist.Clear
savedfolder
wise = "Being in a dark room does not mean you are a blind?"
us = "this application Designed by M.M.Khalil. Egypt 2007"
lens = 1
aboutuslbl = "In this project you can solve any Sudoku puzzle. I used 4 techniques " & Chr$(13)
aboutuslbl = aboutuslbl & "to solve the puzzles. And the fifth one is puttinng tow possible values " & Chr$(13)
aboutuslbl = aboutuslbl & "and the application try to bulid the missing numbers in all puzzle. " & Chr$(13)
aboutuslbl = aboutuslbl & "In fact this aplication challenge any Sudoku puzzle. " & Chr$(13)
aboutuslbl = aboutuslbl & "This appliction solve only puzzles which have solution. " & Chr$(13)
aboutuslbl = aboutuslbl & " Aso it tell you puzzle level (Very Easy,Easy 1,Easy 2,Meduim) " & Chr$(13)
aboutuslbl = aboutuslbl & "of course puzzle level depend on how puzzle examined by tests. " & Chr$(13)
aboutuslbl = aboutuslbl & "Also you can save puzzle with option of saving as you will see " & Chr$(13)
aboutuslbl = aboutuslbl & "Now i working on if the puzzle has not a solution." & Chr$(13)
aboutuslbl = aboutuslbl & "I do about 80% of the work " & Chr$(13)
aboutuslbl = aboutuslbl & "It may be need more development for more perfection." & Chr$(13)
aboutuslbl = aboutuslbl & "so if you can help. please contact me at mail" & Chr$(13)
aboutuslbl = aboutuslbl & "my E.mail is   <khlilism2000@yahoo.com>" & Chr$(13)
aboutuslbl = aboutuslbl & "I hope this project useful for you " & Chr$(13)
aboutuslbl = aboutuslbl & "At last i want to say :" & Chr$(13)
aboutuslbl = aboutuslbl & "Being in a dark room does not mean you are not a blind " & Chr$(13)
aboutuslbl = aboutuslbl & "of course Iam not a blind. In spite of the dark (room) " & Chr$(13)
aboutuslbl = aboutuslbl & Chr$(13)
aboutuslbl = aboutuslbl & Chr$(13)
aboutuslbl = aboutuslbl & "                                                                                M.M.khalil    " & Chr$(13)
aboutuslbl = aboutuslbl & "                                                                                Egypt 2007"
End Sub
Private Sub samplelist_Click()
Dim ipt As String
slovenow.Visible = True
k = 1
newslove_Click
srtagn = True: finshed = False
lvllbl = ""
savepuzzle.Enabled = True
save2.Enabled = False: save3.Enabled = False: notes.Visible = True
If Dir(App.Path & "\puzzles.txt") = "puzzles.txt" Then
Open App.Path & "\puzzles.txt" For Input As #1
Do Until EOF(1)
Input #1, ipt
If k = samplelist.ListIndex + 1 Then
ipt = ipt
Close #1
Exit Do
End If
k = k + 1
Loop
givlbl = "": reqlbl = ""
For M = 1 To 81
poss = M - 1
ypos = (poss Mod 9) + 1: xpos = (poss \ 9) + 1
unsolved(xpos, ypos) = Val(Mid(ipt, M, 1))
solved(xpos, ypos) = Val(Mid(ipt, M, 1))
If Val(Mid(ipt, M, 1)) <> 0 Then
cell(poss).Caption = Val(Mid(ipt, M, 1))
givlbl = Str(Val(givlbl) + 1) & " number"
Else
cell(poss).Caption = ""
reqlbl = Str(Val(reqlbl) + 1) & " number"
End If
Next
Close #1
clearnum.Enabled = True
Else
MsgBox " missing file puzzles.txt.it is not exist.sorry can not load puzzles!!!", vbExclamation, "Challenger x Sudoku"
End If
End Sub
Private Sub savepuzzle_Click()
frmsave.Visible = True
save2.Value = 0: save3.Value = 0
visfunction 0
srtagn = True
savedname.Text = ""
savedname.SetFocus
End Sub
Private Sub slidebar_Click()
If slidebar.Value = 0 Then slidebar.Caption = "Stop  bar"
If slidebar.Value = 1 Then slidebar.Caption = "Resume bar"
End Sub
Private Sub slovenow_Click()
If srtagn = True Then
visfunction 0
Select Case listvis
Case 0
samplelist.Visible = False
savedlist.Visible = False
Case 1
samplelist.Visible = True
savedlist.Visible = False
Case 2
samplelist.Visible = False
savedlist.Visible = True
End Select
loadpuzzle.Visible = True
loadsaved.Visible = True
numfrm.Visible = True
waitlbl.Visible = True
DoEvents
lockcells 0
If checknum = True Then
test1
If testarray = True Then lvllbl = "Very Easy": GoTo kk:
test3
If testarray = True Then lvllbl = "Easy 1":: GoTo kk:
test4
test5
If testarray = True Then lvllbl = "Easy 2":: GoTo kk:
If resultcheck = False Then GoTo kk:
If testarray = False Then test2
If testarray = True Then lvllbl = "Meduim"
End If
kk:
save2.Enabled = True: save3.Enabled = True
notes.Visible = False: savepuzzle.Enabled = True
finshed = True
waitlbl.Visible = False
visfunction 1: lockcells 1
srtagn = False:
End If
End Sub
Private Sub Form_Resize()
numfrm.Left = (Me.Width - numfrm.Width) / 2
numfrm.Top = (Me.Height - numfrm.Height) / 2 - 500
frmsave.Left = numfrm.Left
frmsave.Top = numfrm.Top
aboutfrm.Left = 100
aboutfrm.Top = 100
aboutfrm.Width = Me.Width
aboutfrm.Height = Me.Height
aboutuslbl.Width = aboutfrm.Width - 400
aboutuslbl.Height = aboutfrm.Height - 400
aboutuslbl.Left = 0: aboutuslbl.Top = 0
wiselbl.Left = (Me.Width - wiselbl.Width) / 2: wiselbl.Top = numfrm.Top + numfrm.Height + 100
returncmd.Top = aboutfrm.Height - returncmd.Height - 1000
returncmd.Left = aboutfrm.Width - returncmd.Width - 1000

End Sub
Private Sub newslove_Click()
s = 1: srtagn = False: finshed = False
givlbl = "": reqlbl = ""
lvllbl = ""
clearnum.Enabled = False: savepuzzle.Enabled = False
For M = 0 To 80
cell(M).Caption = ""
dataarray(M) = ""
cell(M).BackColor = &HC0FFFF
Next
For M = 1 To 9
For n = 1 To 9
unsolved(M, n) = 0
solved(M, n) = 0
Next
Next
End Sub
Private Function getmissingnum()
Dim txt As String
For j = 0 To 80
dataarray(j) = ""
Next j
For i = 0 To 80
txt = ""
ypos = (i Mod 9) + 1: xpos = (i \ 9) + 1
xstart = 3 * ((xpos - 1) \ 3) + 1: ystart = 3 * ((ypos - 1) \ 3) + 1
If unsolved(xpos, ypos) <> 0 Then dataarray(i) = "": GoTo kh:
datas = "123456789"
'remove h,v
For xy = 1 To 9
If unsolved(xy, ypos) <> 0 Then
txt = txt & unsolved(xy, ypos)
End If
If unsolved(xpos, xy) <> 0 Then
txt = txt & unsolved(xpos, xy)
End If
Next xy
'remove box
For xx = xstart To xstart + 2
For yy = ystart To ystart + 2
If unsolved(xx, yy) <> 0 Then
txt = txt & unsolved(xx, yy)
End If
Next yy
Next xx
For c = 1 To 9
If InStr(txt, c) = 0 Then dataarray(i) = dataarray(i) & c
Next c
kh:
Next i
End Function
Private Function testarray() As Boolean
testarray = True
str1 = ""
For xx1 = 1 To 9
str1 = ""
For yy1 = 1 To 9
str1 = str1 & unsolved(xx1, yy1)
Next
For M = 1 To 9
If InStr(str1, M) = 0 Then testarray = False: GoTo kk:
Next
Next
For xx1 = 1 To 9
str1 = ""
For yy1 = 1 To 9
str1 = str1 & unsolved(yy1, xx1)
Next
For M = 1 To 9
If InStr(str1, M) = 0 Then testarray = False: GoTo kk:
Next
Next
For xx1 = 1 To 9 Step 3
For yy1 = 1 To 9 Step 3
For i = xx1 To xx1 + 2
For j = yy1 To yy1 + 2
str1 = str1 & unsolved(i, j)
Next
Next
For M = 1 To 9
If InStr(str1, M) = 0 Then testarray = False: GoTo kk:
Next
Next
Next
testarray = True
For i1 = 1 To 9
For j1 = 1 To 9
poss = 9 * (i1 - 1) + j1 - 1
cell(poss).Caption = unsolved(i1, j1)
Next j1
Next i1
kk:
End Function
Private Function test1()
kk:
getmissingnum
For M = 0 To 80
If Len(dataarray(M)) = 1 Then
ypos = (M Mod 9) + 1: xpos = (M \ 9) + 1
cell(M).BackColor = &HFFFF80
unsolved(xpos, ypos) = Val(dataarray(M))
GoTo kk:
End If
Next
End Function
Private Function test3()
Dim txt As String
Dim a, b As Integer
jj:
getmissingnum
For M = 1 To 9 Step 3
For n = 1 To 9 Step 3
txt = ""
For i = M To M + 2
For j = n To n + 2
poss = 9 * (i - 1) + j - 1
If dataarray(poss) <> "" Then txt = txt & dataarray(poss)
Next
Next
a = 1000: b = 1000
For xx = 1 To 9
  a = InStr(txt, xx): b = InStrRev(txt, xx)
  If a = b And a <> 1000 Then
    For i1 = M To M + 2
    For j1 = n To n + 2
    poss = 9 * (i1 - 1) + j1 - 1
      If InStr(dataarray(poss), xx) <> 0 Then
        unsolved(i1, j1) = xx
        cell(poss).BackColor = &HFFFF80
        test1
        GoTo jj:
      End If
    Next
    Next
  End If
Next
Next
Next
End Function
Private Function test4()
Dim txt As String
Dim a, b As Integer
jj:
getmissingnum
For M = 1 To 9
txt = ""
For n = 1 To 9
poss = 9 * (M - 1) + n - 1
If dataarray(poss) <> "" Then txt = txt & dataarray(poss)
Next n
a = 1000: b = 1000
For xx = 1 To 9
a = InStr(txt, xx): b = InStrRev(txt, xx)
If a = b And a <> 1000 Then
For n1 = 1 To 9
poss = 9 * (M - 1) + n1 - 1
If InStr(dataarray(poss), xx) <> 0 Then
unsolved(M, n1) = xx
cell(poss).BackColor = &HFFFF80
test3
GoTo jj:
End If
Next n1
End If
Next xx
Next M
End Function
Private Function test5()
Dim txt As String
Dim a, b As Integer
jj:
getmissingnum
For M = 1 To 9
txt = ""
For n = 1 To 9
poss = 9 * (n - 1) + M - 1
If dataarray(poss) <> "" Then txt = txt & dataarray(poss)
Next n
a = 1000: b = 1000
For xx = 1 To 9
a = InStr(txt, xx): b = InStrRev(txt, xx)
If a = b And a <> 1000 Then
For n1 = 1 To 9
poss = 9 * (n1 - 1) + M - 1
If InStr(dataarray(poss), xx) <> 0 Then
unsolved(n1, M) = xx
cell(poss).BackColor = &HFFFF80
cell(poss).Caption = xx
test4
test3
test4
GoTo jj:
End If
Next n1
End If
Next xx
Next M
End Function
Private Function test2()
Dim tray(1 To 2) As String
Dim xxtray(1 To 2) As Byte
Dim yytray(1 To 2) As Byte
Dim lenghts(1 To 2) As Byte
Dim num1, num2 As Byte
Dim txt, txt1, txt2 As String
Dim splt() As String
For i3 = 1 To 9
For j3 = 1 To 9
solved(i3, j3) = unsolved(i3, j3)
Next
Next
gg:
List1.Clear
getmissingnum
For M = 0 To 80
If Len(dataarray(M)) <> 0 Then
ypos = (M Mod 9) + 1: xpos = (M \ 9) + 1
List1.AddItem Trim(xpos & ypos & "=" & dataarray(M)) & "=" & Len(dataarray(M))
End If
Next M
If List1.ListCount > 1 Then
k = 1
Do Until k = 3
Randomize
xx = Int(List1.ListCount * Rnd)
List1.ListIndex = xx
txt = List1.Text
splt = Split(txt, "=")
tray(k) = splt(1)
xxtray(k) = Val(Mid(splt(0), 1, 1))
yytray(k) = Val(Mid(splt(0), 2, 1))
lenghts(k) = Val(splt(2))
List1.RemoveItem xx
List1.Refresh
k = k + 1
Loop
End If
txt1 = tray(1): txt2 = tray(2)
s1 = lenghts(1): s2 = lenghts(2)
For M = 1 To s1
num1 = Val(Mid(txt1, M, 1))
For n = 1 To s2
num2 = Val(Mid(txt2, n, 1))
unsolved(xxtray(1), yytray(1)) = num1
If testnum(num2, xxtray(2), yytray(2)) = False Then GoTo nextnum:
unsolved(xxtray(2), yytray(2)) = num2
test1
test3
test4
test5
If testarray = False Then
For i3 = 1 To 9
For j3 = 1 To 9
unsolved(i3, j3) = solved(i3, j3)
Next
Next
Else
GoTo hh:
End If
nextnum:
Next
Next
If testarray = False Then
For i3 = 1 To 9
For j3 = 1 To 9
unsolved(i3, j3) = solved(i3, j3)
Next
Next
GoTo gg:
End If
hh:
End Function
Private Function testnum(numval As Byte, xval As Byte, yval As Byte) As Boolean
Dim txt1, txt2, txt3 As String
txt1 = "": txt2 = "": txt3 = ""
testnum = True
For M = 1 To 9
If unsolved(xval, M) <> 0 Then txt1 = txt1 & unsolved(xval, M)
If unsolved(M, yval) <> 0 Then txt2 = txt2 & unsolved(M, yval)
Next
a = InStr(txt1, numval): b = InStrRev(txt1, numval)
If a <> b Then
If a <> 0 And b <> 0 Then testnum = False: GoTo kk:
End If
a = InStr(txt2, numval): b = InStrRev(txt2, numval)
If a <> b Then
If a <> 0 And b <> 0 Then testnum = False: GoTo kk:
End If
xstart = 3 * ((xval - 1) \ 3) + 1: ystart = 3 * ((yval - 1) \ 3) + 1
For M = xstart To xstart + 2
For n = ystart To ystart + 2
If unsolved(M, n) <> 0 Then txt3 = txt3 & unsolved(M, n)
Next
Next
a = InStr(txt3, numval): b = InStrRev(txt3, numval)
If a <> b Then
If a <> 0 And b <> 0 Then testnum = False: GoTo kk:
End If
kk:
End Function
Private Function checknum() As Boolean
Dim txt1(1 To 9), txt2(1 To 9), txt3(1 To 9) As String
checknum = True
For M = 1 To 9
For n = 1 To 9
poss = 9 * (M - 1) + n - 1
txt1(M) = Trim(txt1(M) & cell(poss).Caption)
Next
Next
For M = 1 To 9
For n = 1 To 9
poss = 9 * (n - 1) + M - 1
txt2(M) = Trim(txt2(M) & cell(poss).Caption)
Next
Next
k = 1
For xn = 1 To 9 Step 3
For yn = 1 To 9 Step 3
xstart = 3 * ((xn - 1) \ 3) + 1: ystart = 3 * ((yn - 1) \ 3) + 1
For M = xstart To xstart + 2
For n = ystart To ystart + 2
poss = 9 * (M - 1) + n - 1
txt3(k) = Trim(txt3(k) & cell(poss).Caption)
Next
Next
k = k + 1
Next
Next
For s = 1 To 9
If Len(txt1(s)) > 1 Then
For M = 1 To 9
a = InStr(txt1(s), M): b = InStrRev(txt1(s), M)
If a <> b Then checknum = False: GoTo xxxx:
Next
End If
Next
For s = 1 To 9
If Len(txt2(s)) > 1 Then
For M = 1 To 9
a = InStr(txt2(s), M): b = InStrRev(txt2(s), M)
If a <> b Then checknum = False: GoTo xxxx:
Next
End If
Next
For s = 1 To 9
If Len(txt3(s)) > 1 Then
For M = 1 To 9
a = InStr(txt3(s), M): b = InStrRev(txt3(s), M)
If a <> b Then checknum = False: GoTo xxxx:
Next
End If
Next
xxxx:
If checknum = False Then MsgBox "Error numbers please check it again", vbExclamation, "Error"
End Function
Private Function resultcheck() As Boolean
resultcheck = True
getmissingnum
For M = 0 To 80
ypos = (M Mod 9) + 1: xpos = (M \ 9) + 1
If unsolved(xpos, ypos) = 0 And Len(dataarray(M)) = 0 Then
MsgBox "Error numbers please check it again", vbExclamation, "Error"
resultcheck = False
Exit Function
End If
Next
End Function
Private Function visfunction(vis As Byte)
If vis = 1 Then
numfrm.Visible = True
ssfrm.Visible = True
taskfrm.Visible = True
wiselbl.Visible = True
End If
If vis = 0 Then
numfrm.Visible = False
ssfrm.Visible = False
taskfrm.Visible = False
wiselbl.Visible = False
End If
End Function
Private Function savedfolder()
Dir1.Path = App.Path
If Dir1.ListCount = 0 Then
MkDir App.Path & "\saved"
Else
For M = 0 To Dir1.ListCount - 1
Dir1.ListIndex = M
Dir1.Path = Dir1.List(M)
If Dir1.Path = App.Path & "\saved" Then GoTo lklk:
Next
MkDir App.Path & "\saved"
lklk:
End If
End Function
Private Function lockcells(stat As Byte)
For M = 0 To 80
If stat = 0 Then cell(M).Enabled = False
If stat = 1 Then cell(M).Enabled = True
Next
End Function
Private Sub Timer1_Timer()
k = 0
If slidebar.Value = 0 Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If
For M = 0 To 80
If Val(cell(M).Caption) = 0 Then k = k + 1
Next
If k = 81 Then
savepuzzle.Enabled = False
slovenow.Enabled = False
clearnum.Enabled = False
Else
savepuzzle.Enabled = True
slovenow.Enabled = True
clearnum.Enabled = True
End If
End Sub
Private Function counts()
givlbl = "": reqlbl = ""
For M = 1 To 81
poss = M - 1
If Val(cell(poss).Caption) <> 0 Then
givlbl = Str(Val(givlbl) + 1) & " number"
Else
reqlbl = Str(Val(reqlbl) + 1) & " number"
End If
Next
End Function
Private Sub Timer2_Timer()
If slideop = False Then
wiselbl.Caption = Left(wise, lens)
lens = lens + 1
If lens = Len(wise) + 30 Then lens = 1: slideop = True
Else
wiselbl.Caption = Left(us, lens)
lens = lens + 1
If lens = Len(us) + 30 Then lens = 1: slideop = False
End If
End Sub

Project Homepage: