VERSION 5.00
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Begin VB.Form frmCross1 
   BackColor       =   &H00C0FFFF&
   Caption         =   "Form1"
   ClientHeight    =   3150
   ClientLeft      =   60
   ClientTop       =   390
   ClientWidth     =   4680
   ForeColor       =   &H00C0FFFF&
   LinkTopic       =   "Form1"
   ScaleHeight     =   3150
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Развернуто
   Begin VB.CommandButton CMD5 
      Caption         =   "5"
      BeginProperty Font 
         Name            =   "MS Reference Sans Serif"
         Size            =   48
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   6120
      TabIndex        =   31
      Top             =   5520
      Width           =   975
   End
   Begin VB.CommandButton cmd4 
      Caption         =   "4"
      BeginProperty Font 
         Name            =   "MS Reference Sans Serif"
         Size            =   48
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   1320
      TabIndex        =   30
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton cmd1 
      Caption         =   "1"
      BeginProperty Font 
         Name            =   "MS Reference Sans Serif"
         Size            =   48
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   5160
      MaskColor       =   &H8000000F&
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton cmd2 
      Caption         =   "2"
      BeginProperty Font 
         Name            =   "MS Reference Sans Serif"
         Size            =   48
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   6120
      TabIndex        =   7
      Top             =   2640
      Width           =   975
   End
   Begin VB.CommandButton cmd3 
      Caption         =   "3"
      BeginProperty Font 
         Name            =   "MS Reference Sans Serif"
         Size            =   48
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   6120
      TabIndex        =   6
      Top             =   3600
      Width           =   975
   End
   Begin VB.CommandButton cmd6 
      Caption         =   "Слово по вертикали"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   204
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   7440
      TabIndex        =   5
      Top             =   7800
      Width           =   2295
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Выход"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   39.75
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1005
      Left            =   15240
      TabIndex        =   4
      Top             =   13680
      Width           =   2775
   End
   Begin MCI.MMControl mciPlay 
      Height          =   495
      Left            =   4320
      TabIndex        =   3
      Top             =   14280
      Visible         =   0   'False
      Width           =   3540
      _ExtentX        =   6244
      _ExtentY        =   873
      _Version        =   393216
      DeviceType      =   "Sequencer"
      FileName        =   "C:\Мои документы\проект рус. яз\Страна Морфология\Начало.MID"
   End
   Begin MCI.MMControl mciMidi 
      Height          =   495
      Left            =   720
      TabIndex        =   2
      Top             =   14280
      Visible         =   0   'False
      Width           =   3540
      _ExtentX        =   6244
      _ExtentY        =   873
      _Version        =   393216
      DeviceType      =   "Sequencer"
      FileName        =   "C:\Мои документы\проект рус. яз\Страна Морфология\Конец.MID"
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   10
      Left            =   240
      Top             =   14280
   End
   Begin VB.Shape Shape1 
      Height          =   975
      Left            =   7080
      Shape           =   1  'Квадрат
      Top             =   1680
      Width           =   975
   End
   Begin VB.Shape Shape2 
      Height          =   975
      Left            =   6120
      Shape           =   1  'Квадрат
      Top             =   1680
      Width           =   975
   End
   Begin VB.Shape Shape9 
      Height          =   975
      Left            =   8040
      Shape           =   1  'Квадрат
      Top             =   1680
      Width           =   975
   End
   Begin VB.Shape Shape18 
      Height          =   975
      Left            =   9000
      Shape           =   1  'Квадрат
      Top             =   1680
      Width           =   975
   End
   Begin VB.Shape Shape24 
      Height          =   975
      Left            =   9960
      Shape           =   1  'Квадрат
      Top             =   1680
      Width           =   975
   End
   Begin VB.Shape Shape27 
      Height          =   975
      Left            =   10920
      Shape           =   1  'Квадрат
      Top             =   1680
      Width           =   975
   End
   Begin VB.Shape Shape36 
      Height          =   975
      Left            =   11880
      Shape           =   1  'Квадрат
      Top             =   1680
      Width           =   975
   End
   Begin VB.Shape Shape37 
      Height          =   975
      Left            =   12840
      Shape           =   1  'Квадрат
      Top             =   1680
      Width           =   975
   End
   Begin VB.Shape Shape3 
      Height          =   975
      Left            =   13800
      Top             =   1680
      Width           =   975
   End
   Begin VB.Shape Shape4 
      Height          =   975
      Left            =   14760
      Top             =   1680
      Width           =   975
   End
   Begin VB.Shape Shape5 
      Height          =   975
      Left            =   15720
      Top             =   1680
      Width           =   975
   End
   Begin VB.Shape Shape6 
      Height          =   975
      Left            =   7080
      Top             =   2640
      Width           =   975
   End
   Begin VB.Shape Shape7 
      Height          =   975
      Left            =   8040
      Top             =   2640
      Width           =   975
   End
   Begin VB.Shape Shape8 
      Height          =   975
      Left            =   9000
      Top             =   2640
      Width           =   975
   End
   Begin VB.Shape Shape10 
      Height          =   975
      Left            =   9960
      Top             =   2640
      Width           =   975
   End
   Begin VB.Shape Shape11 
      Height          =   975
      Left            =   10920
      Top             =   2640
      Width           =   975
   End
   Begin VB.Shape Shape12 
      Height          =   975
      Left            =   11880
      Top             =   2640
      Width           =   975
   End
   Begin VB.Shape Shape13 
      Height          =   975
      Left            =   7080
      Top             =   3600
      Width           =   975
   End
   Begin VB.Shape Shape14 
      Height          =   975
      Left            =   8040
      Top             =   3600
      Width           =   975
   End
   Begin VB.Shape Shape15 
      Height          =   975
      Left            =   9000
      Top             =   3600
      Width           =   975
   End
   Begin VB.Shape Shape16 
      Height          =   975
      Left            =   9960
      Top             =   3600
      Width           =   975
   End
   Begin VB.Shape Shape17 
      Height          =   975
      Left            =   2280
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape19 
      Height          =   975
      Left            =   3240
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape20 
      Height          =   975
      Left            =   4200
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape21 
      Height          =   975
      Left            =   5160
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape22 
      Height          =   975
      Left            =   6120
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape23 
      Height          =   975
      Left            =   7080
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape25 
      Height          =   975
      Left            =   8040
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape26 
      Height          =   975
      Left            =   9000
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape28 
      Height          =   975
      Left            =   9960
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape29 
      Height          =   975
      Left            =   10920
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape30 
      Height          =   975
      Left            =   11880
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape31 
      Height          =   975
      Left            =   12840
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape32 
      Height          =   975
      Left            =   13800
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape33 
      Height          =   975
      Left            =   14760
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape34 
      Height          =   975
      Left            =   15720
      Top             =   4560
      Width           =   975
   End
   Begin VB.Shape Shape35 
      Height          =   975
      Left            =   7080
      Top             =   5520
      Width           =   975
   End
   Begin VB.Shape Shape38 
      Height          =   975
      Left            =   8040
      Top             =   5520
      Width           =   975
   End
   Begin VB.Shape Shape39 
      Height          =   975
      Left            =   9000
      Top             =   5520
      Width           =   975
   End
   Begin VB.Shape Shape40 
      Height          =   975
      Left            =   9960
      Top             =   5520
      Width           =   975
   End
   Begin VB.Shape Shape41 
      Height          =   975
      Left            =   10920
      Top             =   5520
      Width           =   975
   End
   Begin VB.Shape Shape42 
      Height          =   975
      Left            =   11880
      Top             =   5520
      Width           =   975
   End
   Begin VB.Shape Shape43 
      Height          =   975
      Left            =   12840
      Top             =   5520
      Width           =   975
   End
   Begin VB.Shape Shape44 
      Height          =   975
      Left            =   13800
      Top             =   5520
      Width           =   975
   End
   Begin VB.Shape Shape45 
      Height          =   975
      Left            =   14760
      Top             =   5520
      Width           =   975
   End
   Begin VB.Shape Shape46 
      Height          =   975
      Left            =   15720
      Top             =   5520
      Width           =   975
   End
   Begin VB.Label lbl22 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "С"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   2280
      TabIndex        =   56
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl23 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "У"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   3240
      TabIndex        =   55
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl24 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Щ"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   4200
      TabIndex        =   54
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl25 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Е"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   5160
      TabIndex        =   53
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl26 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "С"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   6120
      TabIndex        =   52
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl27 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Т"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   7080
      TabIndex        =   51
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl28 
      Alignment       =   2  'Центровка
      BackColor       =   &H0080C0FF&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "В"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C000C0&
      Height          =   975
      Left            =   8040
      TabIndex        =   50
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl29 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "И"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   9000
      TabIndex        =   49
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl30 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Т"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   9960
      TabIndex        =   48
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl31 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Е"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   10920
      TabIndex        =   47
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl32 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Л"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   11880
      TabIndex        =   46
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl33 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Ь"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   12840
      TabIndex        =   45
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl34 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Н"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   13800
      TabIndex        =   44
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl35 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "О"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   14760
      TabIndex        =   43
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl36 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Е"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   15720
      TabIndex        =   42
      Top             =   4560
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl37 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "М"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   7080
      TabIndex        =   41
      Top             =   5520
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl38 
      Alignment       =   2  'Центровка
      BackColor       =   &H0080C0FF&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "О"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C000C0&
      Height          =   975
      Left            =   8040
      TabIndex        =   40
      Top             =   5520
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl39 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Р"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   9000
      TabIndex        =   39
      Top             =   5520
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl40 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Ф"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   9960
      TabIndex        =   38
      Top             =   5520
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl41 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "О"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   10920
      TabIndex        =   37
      Top             =   5520
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl42 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Л"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   11880
      TabIndex        =   36
      Top             =   5520
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl43 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "О"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   12840
      TabIndex        =   35
      Top             =   5520
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl44 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Г"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   13800
      TabIndex        =   34
      Top             =   5520
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl45 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "И"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   14760
      TabIndex        =   33
      Top             =   5520
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl46 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Я"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   15720
      TabIndex        =   32
      Top             =   5520
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl1 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "М"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   6120
      TabIndex        =   29
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl2 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Е"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   7080
      TabIndex        =   28
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl3 
      Alignment       =   2  'Центровка
      BackColor       =   &H0080C0FF&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "С"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C000C0&
      Height          =   1005
      Left            =   8040
      TabIndex        =   27
      Top             =   1680
      Visible         =   0   'False
      Width           =   1005
   End
   Begin VB.Label lbl4 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Т"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   9000
      TabIndex        =   26
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl5 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "О"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   9960
      TabIndex        =   25
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl6 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "И"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   10920
      TabIndex        =   24
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl7 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "М"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   11880
      TabIndex        =   23
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl8 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Е"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   12840
      TabIndex        =   22
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl9 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Н"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   13800
      TabIndex        =   21
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl10 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "И"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   14760
      TabIndex        =   20
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl11 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Е"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   15720
      TabIndex        =   19
      Top             =   1680
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl12 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Г"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   7080
      TabIndex        =   18
      Top             =   2640
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl13 
      Alignment       =   2  'Центровка
      BackColor       =   &H0080C0FF&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Л"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C000C0&
      Height          =   975
      Left            =   8040
      TabIndex        =   17
      Top             =   2640
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl14 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "А"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   9000
      TabIndex        =   16
      Top             =   2640
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl15 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Г"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   9960
      TabIndex        =   15
      Top             =   2640
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl16 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "О"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   10920
      TabIndex        =   14
      Top             =   2640
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl17 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Л"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   11880
      TabIndex        =   13
      Top             =   2640
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl18 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "С"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   7080
      TabIndex        =   12
      Top             =   3600
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl19 
      Alignment       =   2  'Центровка
      BackColor       =   &H0080C0FF&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "О"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C000C0&
      Height          =   975
      Left            =   8040
      TabIndex        =   11
      Top             =   3600
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl20 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "Ю"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   9000
      TabIndex        =   10
      Top             =   3600
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lbl21 
      Alignment       =   2  'Центровка
      BorderStyle     =   1  'Фиксировано один
      Caption         =   "З"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   36
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   9960
      TabIndex        =   9
      Top             =   3600
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Image imgPicture 
      Height          =   3495
      Left            =   480
      Stretch         =   -1  'True
      Top             =   5880
      Width           =   5535
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0FFFF&
      Caption         =   $"frmCross1.frx":0000
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   27.75
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   4335
      Left            =   360
      TabIndex        =   1
      Top             =   9600
      Width           =   18615
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFFF&
      Caption         =   "ПРОЧТИ СЛОВО ПО ВЕРТИКАЛИ"
      BeginProperty Font 
         Name            =   "Century"
         Size            =   48
         Charset         =   204
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   1215
      Left            =   1080
      TabIndex        =   0
      Top             =   0
      Width           =   17535
   End
End
Attribute VB_Name = "frmCross1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd1_Click()
word1 = InputBox("Введите слово", "Первое по горизонтали")
If examin(word1, right1) = 1 Then
cmd1.Visible = False
Call Printed1Yes
Call Yes
imgPicture.Picture = LoadPicture("3.bmp")
Else
Call Printed1No
Call No
imgPicture.Picture = LoadPicture("3.bmp")
End If
End Sub
Private Sub Printed1Yes()
lbl1.Visible = True
lbl2.Visible = True
lbl3.Visible = True
lbl4.Visible = True
lbl5.Visible = True
lbl6.Visible = True
lbl7.Visible = True
lbl8.Visible = True
lbl9.Visible = True
lbl10.Visible = True
lbl11.Visible = True
End Sub
Private Sub Printed1No()
cmd1.Visible = False
lbl1.Visible = True
lbl1.BackColor = QBColor(8)
lbl1.Caption = ""
lbl2.Visible = True
lbl2.BackColor = QBColor(8)
lbl2.Caption = ""
lbl3.Visible = True
lbl3.BackColor = &HFF&
lbl3.Caption = ""
lbl4.Visible = True
lbl4.BackColor = QBColor(8)
lbl4.Caption = ""
lbl5.Visible = True
lbl5.BackColor = QBColor(8)
lbl5.Caption = ""
lbl6.Visible = True
lbl6.BackColor = QBColor(8)
lbl6.Caption = ""
lbl7.Visible = True
lbl7.BackColor = QBColor(8)
lbl7.Caption = ""
lbl8.Visible = True
lbl8.BackColor = QBColor(8)
lbl8.Caption = ""
lbl9.Visible = True
lbl9.BackColor = QBColor(8)
lbl9.Caption = ""
lbl10.Visible = True
lbl10.BackColor = QBColor(8)
lbl10.Caption = ""
lbl11.Visible = True
lbl11.BackColor = QBColor(8)
lbl11.Caption = ""
End Sub
Private Sub Yes()
mciPlay.FileName = "1.mid"
mciPlay.Command = "Open"
mciPlay.Command = "Sound"
mciPlay.Command = "Close"
End Sub
Private Sub No()
mciPlay.FileName = "2.mid"
mciPlay.Command = "Open"
mciPlay.Command = "Sound"
mciPlay.Command = "Close"
End Sub
Private Sub cmd2_Click()
word2 = InputBox("Введите слово", "Второе по горизонтали")
If examin(word2, right2) = 1 Then
cmd2.Visible = False
Call Printed2Yes
Call Yes2
imgPicture.Picture = LoadPicture("2.bmp")
Else
Call Printed2No
Call No2
imgPicture.Picture = LoadPicture("2.bmp")
End If
End Sub
Private Sub Printed2Yes()
lbl12.Visible = True
lbl13.Visible = True
lbl14.Visible = True
lbl15.Visible = True
lbl16.Visible = True
lbl17.Visible = True
End Sub
Private Sub Printed2No()
cmd2.Visible = False
lbl12.Visible = True
lbl12.BackColor = QBColor(8)
lbl12.Caption = ""
lbl13.Visible = True
lbl13.BackColor = &HFF&
lbl13.Caption = ""
lbl14.Visible = True
lbl14.BackColor = QBColor(8)
lbl14.Caption = ""
lbl15.Visible = True
lbl15.BackColor = QBColor(8)
lbl15.Caption = ""
lbl16.Visible = True
lbl16.BackColor = QBColor(8)
lbl16.Caption = ""
lbl17.Visible = True
lbl17.BackColor = QBColor(8)
lbl17.Caption = ""
End Sub
Private Sub Yes2()
mciPlay.FileName = "11.mid"
mciPlay.Command = "Open"
mciPlay.Command = "Sound"
mciPlay.Command = "Close"
End Sub
Private Sub No2()
mciPlay.FileName = "22.mid"
mciPlay.Command = "Open"
mciPlay.Command = "Sound"
mciPlay.Command = "Close"
End Sub
Private Sub cmd3_Click()
word3 = InputBox("Введите слово", "Третье по горизонтали")
If examin(word3, right3) = 1 Then
cmd3.Visible = False
Call Printed3Yes
Call Yes3
imgPicture.Picture = LoadPicture("1.bmp")
Else
Call Printed3No
Call No3
imgPicture.Picture = LoadPicture("1.bmp")
End If
End Sub
Private Sub Printed3Yes()
lbl18.Visible = True
lbl19.Visible = True
lbl20.Visible = True
lbl21.Visible = True
End Sub
Private Sub Printed3No()
cmd3.Visible = False
lbl18.Visible = True
lbl18.BackColor = QBColor(8)
lbl18.Caption = ""
lbl19.Visible = True
lbl19.BackColor = &HFF&
lbl19.Caption = ""
lbl20.Visible = True
lbl20.BackColor = QBColor(8)
lbl20.Caption = ""
lbl21.Visible = True
lbl21.BackColor = QBColor(8)
lbl21.Caption = ""
End Sub
Private Sub Yes3()
mciPlay.FileName = "1.mid"
mciPlay.Command = "Open"
mciPlay.Command = "Sound"
mciPlay.Command = "Close"
End Sub
Private Sub No3()
mciPlay.FileName = "2.mid"
mciPlay.Command = "Open"
mciPlay.Command = "Sound"
mciPlay.Command = "Close"
End Sub
Private Sub cmd4_Click()
word4 = InputBox("Введите слово", "Четвертое по горизонтали")
If examin(word4, right4) = 1 Then
cmd4.Visible = False
Call Printed4Yes
Call Yes4
imgPicture.Picture = LoadPicture("4.bmp")
Else
Call Printed4No
Call No4
imgPicture.Picture = LoadPicture("4.bmp")
End If
End Sub
Private Sub Printed4Yes()
lbl22.Visible = True
lbl23.Visible = True
lbl24.Visible = True
lbl25.Visible = True
lbl26.Visible = True
lbl27.Visible = True
lbl28.Visible = True
lbl29.Visible = True
lbl30.Visible = True
lbl31.Visible = True
lbl32.Visible = True
lbl33.Visible = True
lbl34.Visible = True
lbl35.Visible = True
lbl36.Visible = True
End Sub
Private Sub Printed4No()
cmd4.Visible = False
lbl22.Visible = True
lbl22.BackColor = QBColor(8)
lbl22.Caption = ""
lbl23.Visible = True
lbl23.BackColor = QBColor(8)
lbl23.Caption = ""
lbl24.Visible = True
lbl24.BackColor = QBColor(8)
lbl24.Caption = ""
lbl25.Visible = True
lbl25.BackColor = QBColor(8)
lbl25.Caption = ""
lbl26.Visible = True
lbl26.BackColor = QBColor(8)
lbl26.Caption = ""
lbl27.Visible = True
lbl27.BackColor = QBColor(8)
lbl27.Caption = ""
lbl28.Visible = True
lbl28.BackColor = &HFF&
lbl28.Caption = ""
lbl29.Visible = True
lbl29.BackColor = QBColor(8)
lbl29.Caption = ""
lbl30.Visible = True
lbl30.BackColor = QBColor(8)
lbl30.Caption = ""
lbl31.Visible = True
lbl31.BackColor = QBColor(8)
lbl31.Caption = ""
lbl32.Visible = True
lbl32.BackColor = QBColor(8)
lbl32.Caption = ""
lbl33.Visible = True
lbl33.BackColor = QBColor(8)
lbl33.Caption = ""
lbl34.Visible = True
lbl34.BackColor = QBColor(8)
lbl34.Caption = ""
lbl35.Visible = True
lbl35.BackColor = QBColor(8)
lbl35.Caption = ""
lbl36.Visible = True
lbl36.BackColor = QBColor(8)
lbl36.Caption = ""
End Sub
Private Sub Yes4()
mciPlay.FileName = "11.mid"
mciPlay.Command = "Open"
mciPlay.Command = "Sound"
mciPlay.Command = "Close"
End Sub
Private Sub No4()
mciPlay.FileName = "22.mid"
mciPlay.Command = "Open"
mciPlay.Command = "Sound"
mciPlay.Command = "Close"
End Sub
Private Sub cmd5_Click()
word5 = InputBox("Введите слово", "Пятое по горизонтали")
If examin(word5, right5) = 1 Then
CMD5.Visible = False
Call Printed5Yes
Call Yes5
Else
Call Printed5No
Call No5
End If
End Sub
Private Sub Printed5Yes()
lbl37.Visible = True
lbl38.Visible = True
lbl39.Visible = True
lbl40.Visible = True
lbl41.Visible = True
lbl42.Visible = True
lbl43.Visible = True
lbl44.Visible = True
lbl45.Visible = True
lbl46.Visible = True
End Sub
Private Sub Printed5No()
CMD5.Visible = False
lbl37.Visible = True
lbl37.BackColor = QBColor(8)
lbl37.Caption = ""
lbl38.Visible = True
lbl38.BackColor = &HFF&
lbl38.Caption = ""
lbl39.Visible = True
lbl39.BackColor = QBColor(8)
lbl39.Caption = ""
lbl40.Visible = True
lbl40.BackColor = QBColor(8)
lbl40.Caption = ""
lbl41.Visible = True
lbl41.BackColor = QBColor(8)
lbl41.Caption = ""
lbl42.Visible = True
lbl42.BackColor = QBColor(8)
lbl42.Caption = ""
lbl43.Visible = True
lbl43.BackColor = QBColor(8)
lbl43.Caption = ""
lbl44.Visible = True
lbl44.BackColor = QBColor(8)
lbl44.Caption = ""
lbl45.Visible = True
lbl45.BackColor = QBColor(8)
lbl45.Caption = ""
lbl46.Visible = True
lbl46.BackColor = QBColor(8)
lbl46.Caption = ""
End Sub
Private Sub Yes5()
mciPlay.FileName = "11.mid"
mciPlay.Command = "Open"
mciPlay.Command = "Sound"
mciPlay.Command = "Close"
End Sub
Private Sub No5()
mciPlay.FileName = "22.mid"
mciPlay.Command = "Open"
mciPlay.Command = "Sound"
mciPlay.Command = "Close"
End Sub

Private Sub cmd6_Click()
Call Alfabet
End Sub
Private Sub Alfabet()
Dim Answer%
Dim f$
f$ = vbYes Or vbInformation Or vbDefaultButton1
word6 = InputBox("Что же за слово по вертикали?")
If examin(word6, right6) Then
mciPlay.FileName = "1.mid"
mciPlay.Command = "Open"
mciPlay.Command = "Sound"
mciPlay.Command = "Close"
Answer% = MsgBox("Это правильный ответ.", f$)
Else
mciPlay.FileName = "2.mid"
mciPlay.Command = "Open"
mciPlay.Command = "Sound"
mciPlay.Command = "Close"
Answer% = MsgBox("Это неправильный ответ. Правильный ответ СЛОВО.", f$)
End If
End Sub
Private Sub cmdExit_Click()
mciMidi.Command = "Open"
mciMidi.Command = "Play"
frmCross1.Hide
Form1.Show
End Sub


