VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form26 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Mixing Window"
   ClientHeight    =   4860
   ClientLeft      =   30
   ClientTop       =   270
   ClientWidth     =   5025
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Form26.frx":0000
   LinkTopic       =   "Form26"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4860
   ScaleWidth      =   5025
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command2 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   2280
      TabIndex        =   56
      Top             =   4320
      Width           =   852
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Plot (SpaceBar)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   3240
      TabIndex        =   1
      Top             =   4320
      Width           =   1575
   End
   Begin VB.Frame Frame2 
      Caption         =   "End Member 2"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   795
      Left            =   120
      TabIndex        =   45
      Top             =   2400
      Width           =   2655
      Begin VB.CommandButton Command5 
         Caption         =   "Select on Graph"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   225
         TabIndex        =   58
         Top             =   390
         Width           =   2175
      End
      Begin VB.TextBox Text8 
         Alignment       =   2  'Center
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   324
         Left            =   624
         TabIndex        =   47
         Text            =   "nd"
         Top             =   915
         Width           =   1092
      End
      Begin VB.TextBox Text6 
         Alignment       =   2  'Center
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   324
         Left            =   612
         TabIndex        =   46
         Text            =   "nd"
         Top             =   1425
         Width           =   1092
      End
      Begin VB.Label Label26 
         Alignment       =   2  'Center
         Caption         =   "X2="
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   195
         TabIndex        =   53
         Top             =   975
         Width           =   375
      End
      Begin VB.Line Line8 
         BorderWidth     =   2
         X1              =   2310
         X2              =   1950
         Y1              =   1095
         Y2              =   1095
      End
      Begin VB.Label Label25 
         Alignment       =   2  'Center
         Caption         =   "P2"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1950
         TabIndex        =   52
         Top             =   825
         Width           =   375
      End
      Begin VB.Label Label24 
         Alignment       =   2  'Center
         Caption         =   "b2"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1935
         TabIndex        =   51
         Top             =   1140
         Width           =   375
      End
      Begin VB.Label Label22 
         Alignment       =   2  'Center
         Caption         =   "Y2="
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   180
         TabIndex        =   50
         Top             =   1470
         Width           =   375
      End
      Begin VB.Line Line7 
         BorderWidth     =   2
         X1              =   2295
         X2              =   1935
         Y1              =   1605
         Y2              =   1605
      End
      Begin VB.Label Label21 
         Alignment       =   2  'Center
         Caption         =   "Q2"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1935
         TabIndex        =   49
         Top             =   1350
         Width           =   375
      End
      Begin VB.Label Label20 
         Alignment       =   2  'Center
         Caption         =   "a2"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1920
         TabIndex        =   48
         Top             =   1650
         Width           =   375
      End
      Begin VB.Label Label28 
         Alignment       =   2  'Center
         Caption         =   "="
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   1656
         TabIndex        =   55
         Top             =   1392
         Width           =   372
      End
      Begin VB.Label Label27 
         Alignment       =   2  'Center
         Caption         =   "="
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1665
         TabIndex        =   54
         Top             =   870
         Width           =   375
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "End Member 1"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   795
      Left            =   120
      TabIndex        =   34
      Top             =   480
      Width           =   2655
      Begin VB.CommandButton Command3 
         Caption         =   "Select on Graph"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   240
         TabIndex        =   57
         Top             =   360
         Width           =   2175
      End
      Begin VB.TextBox Text3 
         Alignment       =   2  'Center
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   324
         Left            =   600
         TabIndex        =   43
         Text            =   "nd"
         Top             =   1425
         Width           =   1092
      End
      Begin VB.TextBox Text1 
         Alignment       =   2  'Center
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   324
         Left            =   612
         TabIndex        =   38
         Text            =   "nd"
         Top             =   915
         Width           =   1092
      End
      Begin VB.Line Line9 
         BorderWidth     =   2
         X1              =   360
         X2              =   0
         Y1              =   0
         Y2              =   0
      End
      Begin VB.Label Label16 
         Alignment       =   2  'Center
         Caption         =   "a1"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1905
         TabIndex        =   42
         Top             =   1650
         Width           =   375
      End
      Begin VB.Label Label15 
         Alignment       =   2  'Center
         Caption         =   "Q1"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1920
         TabIndex        =   41
         Top             =   1350
         Width           =   375
      End
      Begin VB.Line Line6 
         BorderWidth     =   2
         X1              =   2280
         X2              =   1920
         Y1              =   1605
         Y2              =   1605
      End
      Begin VB.Label Label14 
         Alignment       =   2  'Center
         Caption         =   "Y1="
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   165
         TabIndex        =   40
         Top             =   1470
         Width           =   375
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         Caption         =   "b1"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1920
         TabIndex        =   37
         Top             =   1140
         Width           =   375
      End
      Begin VB.Line Line5 
         BorderWidth     =   2
         X1              =   2295
         X2              =   1935
         Y1              =   1080
         Y2              =   1080
      End
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         Caption         =   "X1="
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   180
         TabIndex        =   35
         Top             =   975
         Width           =   375
      End
      Begin VB.Label Label12 
         Alignment       =   2  'Center
         Caption         =   "="
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1680
         TabIndex        =   39
         Top             =   990
         Width           =   375
      End
      Begin VB.Label Label17 
         Alignment       =   2  'Center
         Caption         =   "="
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1650
         TabIndex        =   44
         Top             =   1500
         Width           =   375
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         Caption         =   "P1"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1920
         TabIndex        =   36
         Top             =   795
         Width           =   375
      End
   End
   Begin VB.Frame frame5 
      Caption         =   "Symbol (click to sel.)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   1392
      Left            =   2955
      TabIndex        =   15
      Top             =   132
      Width           =   1812
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   250
         Index           =   5
         Left            =   1272
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   15
         TabIndex        =   24
         Top             =   624
         Width           =   250
      End
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   250
         Index           =   4
         Left            =   696
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   15
         TabIndex        =   23
         Top             =   624
         Width           =   250
      End
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   250
         Index           =   3
         Left            =   132
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   15
         TabIndex        =   22
         Top             =   624
         Width           =   250
      End
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   250
         Index           =   2
         Left            =   1272
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   15
         TabIndex        =   21
         Top             =   252
         Width           =   250
      End
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   250
         Index           =   1
         Left            =   696
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   15
         TabIndex        =   20
         Top             =   252
         Width           =   250
      End
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   250
         Index           =   0
         Left            =   132
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   15
         TabIndex        =   19
         Top             =   252
         Width           =   250
      End
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   250
         Index           =   6
         Left            =   132
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   15
         TabIndex        =   18
         Top             =   996
         Width           =   250
      End
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   250
         Index           =   7
         Left            =   696
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   15
         TabIndex        =   17
         Top             =   996
         Width           =   250
      End
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   250
         Index           =   8
         Left            =   1272
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   15
         TabIndex        =   16
         Top             =   996
         Width           =   250
      End
      Begin VB.Line Line1 
         X1              =   600
         X2              =   600
         Y1              =   228
         Y2              =   1284
      End
      Begin VB.Line Line2 
         X1              =   1188
         X2              =   1188
         Y1              =   228
         Y2              =   1284
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "6"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Index           =   13
         Left            =   1524
         TabIndex        =   33
         Top             =   624
         Width           =   252
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "3"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Index           =   14
         Left            =   1524
         TabIndex        =   32
         Top             =   252
         Width           =   252
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "5"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Index           =   15
         Left            =   948
         TabIndex        =   31
         Top             =   624
         Width           =   252
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "2"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Index           =   16
         Left            =   948
         TabIndex        =   30
         Top             =   252
         Width           =   252
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "4"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Index           =   17
         Left            =   444
         TabIndex        =   29
         Top             =   624
         Width           =   132
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "1"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Index           =   18
         Left            =   402
         TabIndex        =   28
         Top             =   252
         Width           =   216
      End
      Begin VB.Line Line4 
         X1              =   120
         X2              =   1680
         Y1              =   948
         Y2              =   948
      End
      Begin VB.Line Line3 
         X1              =   120
         X2              =   1680
         Y1              =   564
         Y2              =   564
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "7"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Index           =   12
         Left            =   384
         TabIndex        =   27
         Top             =   996
         Width           =   252
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "8"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Index           =   11
         Left            =   948
         TabIndex        =   26
         Top             =   996
         Width           =   252
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "9"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Index           =   10
         Left            =   1584
         TabIndex        =   25
         Top             =   996
         Width           =   132
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Line"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   975
      Left            =   3000
      TabIndex        =   0
      Top             =   3240
      Width           =   1812
      Begin VB.ComboBox Combo2 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         ItemData        =   "Form26.frx":000C
         Left            =   276
         List            =   "Form26.frx":0016
         TabIndex        =   3
         Text            =   "1"
         Top             =   240
         Width           =   735
      End
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   250
         Index           =   21
         Left            =   480
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   15
         TabIndex        =   2
         Top             =   600
         Width           =   250
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         Caption         =   "Color"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   720
         TabIndex        =   5
         Top             =   615
         Width           =   705
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         Caption         =   "Width"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   1020
         TabIndex        =   4
         Top             =   276
         Width           =   612
      End
   End
   Begin MSComDlg.CommonDialog CMD1 
      Left            =   3315
      Top             =   150
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   3120
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Frame Frame4 
      Caption         =   "Symbol"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   1620
      Left            =   2955
      TabIndex        =   6
      Top             =   1560
      Width           =   1812
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   250
         Index           =   39
         Left            =   432
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   15
         TabIndex        =   10
         Top             =   984
         Width           =   250
      End
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   250
         Index           =   41
         Left            =   432
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   15
         TabIndex        =   9
         Top             =   1284
         Width           =   250
      End
      Begin VB.ComboBox Combo3 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         ItemData        =   "Form26.frx":0020
         Left            =   252
         List            =   "Form26.frx":002D
         TabIndex        =   8
         Text            =   "Min"
         Top             =   252
         Width           =   720
      End
      Begin VB.ComboBox Combo4 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         ItemData        =   "Form26.frx":0040
         Left            =   240
         List            =   "Form26.frx":004A
         TabIndex        =   7
         Text            =   "1"
         Top             =   636
         Width           =   732
      End
      Begin VB.Label Label7 
         Caption         =   "Color"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   960
         TabIndex        =   14
         Top             =   990
         Width           =   495
      End
      Begin VB.Label Label8 
         Caption         =   "Symbol"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   852
         TabIndex        =   13
         Top             =   1296
         Width           =   600
      End
      Begin VB.Label Label11 
         Caption         =   "Dim"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1200
         TabIndex        =   12
         Top             =   270
         Width           =   495
      End
      Begin VB.Label Label9 
         Caption         =   "Width"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   1140
         TabIndex        =   11
         Top             =   660
         Width           =   492
      End
   End
   Begin VB.Label Label10 
      Alignment       =   2  'Center
      Caption         =   "REF.: H. Langmuir et al, 1978"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   255
      Left            =   105
      TabIndex        =   59
      Top             =   75
      Width           =   2655
   End
End
Attribute VB_Name = "Form26"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False







Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 32 Then
Command1_Click
End If

End Sub

Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 32 Then
Command1_Click
End If

End Sub

Private Sub Combo4_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 32 Then
Command1_Click
End If

End Sub

Private Sub Command1_Click()

If CambiaMod = False Then
ModelSymbCol = Picture1(39).BackColor
ModelLineCol = Picture1(21).BackColor
saa = (NumModelli(Indeks) + 1)
sbb = (NumModelli(Indeks) + 1)
ColModLine(saa, Indeks) = ModelLineCol
ColModSymb(sbb, Indeks) = ModelSymbCol
Else
ModelSymbCol = Picture1(39).BackColor
ModelLineCol = Picture1(21).BackColor
ColModLine(MODiD, Indeks) = ModelLineCol
ColModSymb(MODiD, Indeks) = ModelSymbCol
End If


Iperbola = True

 'ModelSymbSp
   If Combo3.Text = "Min" Then
   ModelSymbSp = 2
   End If
   If Combo3.Text = "Med" Then
   ModelSymbSp = 4
   End If
   If Combo3.Text = "Max" Then
   ModelSymbSp = 6
   End If
   
' ModelLineSp
   If Combo2.Text = "1" Then
   ModelLineSp = 1
   LineSp(Indeks) = 1
   End If
   If Combo2.Text = "2" Then
   ModelLineSp = 2
   LineSp(Indeks) = 2
   End If
   
 'ModelSymbWid
 If Combo4.Text = "1" Then
   ModelSymbWid = 1
   End If
   If Combo4.Text = "2" Then
   ModelSymbWid = 2
   End If

x11 = Val(Text1.Text)
y11 = Val(Text3.Text)
x22 = Val(Text8.Text)
y22 = Val(Text6.Text)

'definisco i denominatori dei rapporti b1,b2,a1,a2

'ASSE X
'----------------------------------------------------------------------
nome$ = Elementi(AXX(Indeks))

LUNG = Len(nome$)
div = 0

For i = 1 To LUNG
ee$ = Mid(nome$, i, 1)
If ee$ = "/" Then
div = div + 1
start = i
End If
Next i
'Piu di un rapporto (per ora abbandono l'impresa)
If div > 1 Then
MsgBox "more than one symbol / are present, I'm not able to process X axis"
Exit Sub
End If

'ELEMENTO
If div = 0 Then
b1 = 1
b2 = 1
GoTo yinit
End If

'RAPPORTO
yya = 0
yyA1 = 0
If div = 1 Then
'DEVO INDIVIDUARE IL DENOMINATORE
nome1$ = Mid(nome$, start + 1, LUNG - start)
nome2$ = Mid(nome$, start + 1, LUNG - start - 1)
'prima cerco se il denominatore è presente nel file di analisi
For i = 1 To Numelem
If Elementi(i) = nome1$ Or Elementi(i) = nome2$ Then
yyA1 = yyA1 + 1
For ii1 = 1 To Numcamp1
If NomeCamp(ii1) = CampioneC1 Then
cc1 = ii1
yya = yya + 1
End If
If NomeCamp(ii1) = CampioneC2 Then
cc2 = ii1
yya = yya + 1
End If
Next ii1

If yya > 2 Then
MsgBox "I'm not able to process X axis"
Exit Sub
End If

b1 = DatiOrigine(cc1, i)
b2 = DatiOrigine(cc2, i)
GoTo yinit
End If
Next i
End If

'CERCO L'ISOTOPO, L'ELEMENTO E NE DETERMINO L'IMPORTANZA
If yyA1 < 1 Then

numero1 = Val(Mid(nome1$, 1, 1))
nome11 = Mid(nome1$, 2, 1)
nome12 = Mid(nome1$, 2, 2)
nome13 = Mid(nome1$, 2, 3)
numero2 = Val(Mid(nome1$, 1, 2))
nome21 = Mid(nome1$, 3, 1)
nome22 = Mid(nome1$, 3, 2)
nome23 = Mid(nome1$, 3, 3)
numero3 = Val(Mid(nome1$, 1, 3))
nome31 = Mid(nome1$, 4, 1)
nome32 = Mid(nome1$, 4, 2)
nome33 = Mid(nome1$, 4, 3)

Close #1
Open App.Path + "\data\ISOTOPE1.txt" For Input As #1
Do While Not EOF(1)
Input #1, EL, num, ab

If numero1 = num Then
If nome11 = EL Then
Abundance = ab
GoTo vai
End If
If nome12 = EL Then
Abundance = ab
GoTo vai
End If
If nome12 = EL Then
Abundance = ab
GoTo vai
End If
End If

If numero2 = num Then
If nome21 = EL Then
Abundance = ab
GoTo vai
End If
If nome22 = EL Then
Abundance = ab
GoTo vai
End If
If nome22 = EL Then
Abundance = ab
GoTo vai
End If
End If

If numero3 = num Then
If nome31 = EL Then
Abundance = ab
GoTo vai
End If
If nome32 = EL Then
Abundance = ab
GoTo vai
End If
If nome32 = EL Then
Abundance = ab
GoTo vai
End If
End If



Loop
Close #1

MsgBox "I'm not able to process X axis"
Exit Sub

vai:
Close #1

elem = 0
For ia = 1 To Numelem
If Elementi(ia) = EL Then
elem = ia
End If
Next ia

If elem = 0 Then
MsgBox "I'm not able to process X axis"
Exit Sub
End If

yya = 0
For ii1 = 1 To Numcamp1
If NomeCamp(ii1) = CampioneC1 Then
cc1 = ii1
yya = yya + 1
End If
If NomeCamp(ii1) = CampioneC2 Then
cc2 = ii1
yya = yya + 1
End If
Next ii1

If yya < 2 Then
MsgBox "I'm not able to process X axis"
Exit Sub
End If

b1 = DatiOrigine(cc1, elem) * Abundance / 100
b2 = DatiOrigine(cc2, elem) * Abundance / 100

End If

yinit:
'----------------------------------------------------------------------

'ASSE Y
'----------------------------------------------------------------------
nome$ = Elementi(AXY(Indeks))

LUNG = Len(nome$)
div = 0

For i = 1 To LUNG
ee$ = Mid(nome$, i, 1)
If ee$ = "/" Then
div = div + 1
start = i
End If
Next i
'Piu di un rapporto (per ora abbandono l'impresa)
If div > 1 Then
MsgBox "more than one symbol / are present, I'm not able to process Y axis"
Exit Sub
End If

'ELEMENTO
If div = 0 Then
a1 = 1
a2 = 1
GoTo modinit
End If

'RAPPORTO
yya = 0
yyA1 = 0
If div = 1 Then
'DEVO INDIVIDUARE IL DENOMINATORE

nome1$ = Mid(nome$, start + 1, LUNG - start)
nome2$ = Mid(nome$, start + 1, LUNG - start - 1)
'prima cerco se il denominatore è presente nel file di analisi
For i = 1 To Numelem
If Elementi(i) = nome1$ Or Elementi(i) = nome2$ Then
yyA1 = yyA1 + 1
For ii1 = 1 To Numcamp1
If NomeCamp(ii1) = CampioneC1 Then
cc1 = ii1
yya = yya + 1
End If
If NomeCamp(ii1) = CampioneC2 Then
cc2 = ii1
yya = yya + 1
End If
Next ii1

If yya > 2 Then
MsgBox "I'm not able to process Y axis"
Exit Sub
End If

a1 = DatiOrigine(cc1, i)
a2 = DatiOrigine(cc2, i)
GoTo modinit
End If
Next i
End If

'CERCO L'ISOTOPO, L'ELEMENTO E NE DETERMINO L'IMPORTANZA
If yyA1 < 1 Then

numero1 = Val(Mid(nome1$, 1, 1))
nome11 = Mid(nome1$, 2, 1)
nome12 = Mid(nome1$, 2, 2)
nome13 = Mid(nome1$, 2, 3)
numero2 = Val(Mid(nome1$, 1, 2))
nome21 = Mid(nome1$, 3, 1)
nome22 = Mid(nome1$, 3, 2)
nome23 = Mid(nome1$, 3, 3)
numero3 = Val(Mid(nome1$, 1, 3))
nome31 = Mid(nome1$, 4, 1)
nome32 = Mid(nome1$, 4, 2)
nome33 = Mid(nome1$, 4, 3)

Close #1
Open App.Path + "\data\ISOTOPE1.txt" For Input As #1
Do While Not EOF(1)
Input #1, EL, num, ab

If numero1 = num Then
If nome11 = EL Then
Abundance = ab
GoTo vai1
End If
If nome12 = EL Then
Abundance = ab
GoTo vai1
End If
If nome12 = EL Then
Abundance = ab
GoTo vai1
End If
End If

If numero2 = num Then
If nome21 = EL Then
Abundance = ab
GoTo vai1
End If
If nome22 = EL Then
Abundance = ab
GoTo vai1
End If
If nome22 = EL Then
Abundance = ab
GoTo vai1
End If
End If

If numero3 = num Then
If nome31 = EL Then
Abundance = ab
GoTo vai1
End If
If nome32 = EL Then
Abundance = ab
GoTo vai1
End If
If nome32 = EL Then
Abundance = ab
GoTo vai1
End If
End If



Loop

Close #1
MsgBox "I'm not able to process Y axis"
Exit Sub

vai1:
Close #1

elem = 0
For ia = 1 To Numelem
If Elementi(ia) = EL Then
elem = ia
End If
Next ia

If elem = 0 Then
MsgBox "I'm not able to process Y axis"
Exit Sub
End If

yya = 0
For ii1 = 1 To Numcamp1
If NomeCamp(ii1) = CampioneC1 Then
cc1 = ii1
yya = yya + 1
End If
If NomeCamp(ii1) = CampioneC2 Then
cc2 = ii1
yya = yya + 1
End If
Next ii1

If yya < 2 Then
MsgBox "I'm not able to process Y axis"
Exit Sub
End If

a1 = DatiOrigine(cc1, elem) * Abundance / 100
a2 = DatiOrigine(cc2, elem) * Abundance / 100

End If

modinit:
'----------------------------------------------------------------------

'If Option1.Value = True Then
model.MixRR1 GraphSelect, x11, y11, x22, y22, b1, b2, a1, a2, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid
'End If

'If Option2.Value = True Then
'Model.MixRE1 GraphSelect, x11, y11, x22, y22, d1, d2, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid
'End If

'If Option3.Value = True Then
'Model.MixRunoSuE1 GraphSelect, x11, y11, x22, y22, d1, d2, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid
'End If

If tipoGraph(Indeks) = "normx-normy" Then
MF1.DisegnaNormXNormY
End If

If tipoGraph(Indeks) = "normx-logy" Then
MF1.DisegnaNormXLogY
End If

If tipoGraph(Indeks) = "logx-normy" Then
MF1.DisegnaLogXNormY
End If

If tipoGraph(Indeks) = "logx-logy" Then
MF1.DisegnaLogXLogY
End If

Form26.Hide


Close #1

End Sub



Private Sub Command2_Click()
Form26.Hide
End Sub


Private Sub Command3_Click()

Form26.Command1.SetFocus

SelC1 = True
SelC2 = False
SelC0 = False
SelCA = False
SelC0I = False
SelCAI = False
picforms(GraphSelect).SetFocus

Mixip = True

End Sub

Private Sub Command4_Click()

FormSelezionato = "form26_Y1"

INP.MostraForm13 Form2.left, Form2.top


End Sub



Private Sub Command5_Click()

Form26.Command1.SetFocus

SelC1 = False
SelC2 = True
SelC0 = False
SelCA = False
SelC0I = False
SelCAI = False
picforms(GraphSelect).SetFocus

Mixip = True

End Sub

Private Sub Command6_Click()

FormSelezionato = "form26_Y2"

INP.MostraForm13 Form2.left, Form2.top

End Sub

Private Sub Command7_Click()

FormSelezionato = "form26_X1"

INP.MostraForm13 Form2.left, Form2.top

End Sub

Private Sub Command8_Click()

FormSelezionato = "form26_X2"

INP.MostraForm13 Form2.left, Form2.top

End Sub

Private Sub Label37_Click()

End Sub

Private Sub Label33_Click()
End Sub

Private Sub Label35_Click()

End Sub

Private Sub Option1_Click()

Form26.Label27.Visible = True
Form26.Label25.Visible = True
Form26.Label24.Visible = True
Form26.Label3.Visible = True
Form26.Label4.Visible = True
Form26.Label12.Visible = True
'Form26.Label13.Visible = True
'Form26.Label23.Visible = True

Form26.Line8.Visible = True
Form26.Line5.Visible = True

'Form26.Text2.Visible = True
'Form26.Text7.Visible = True

'Form26.Command7.Visible = True
'Form26.Command8.Visible = True

End Sub

Private Sub Option2_Click()

Form26.Label27.Visible = False
Form26.Label25.Visible = False
Form26.Label24.Visible = False
Form26.Label3.Visible = False
Form26.Label4.Visible = False
Form26.Label12.Visible = False
'Form26.Label13.Visible = False
'Form26.Label23.Visible = False

Form26.Line8.Visible = False
Form26.Line5.Visible = False

'Form26.Text2.Visible = False
'Form26.Text7.Visible = False

'Form26.Command7.Visible = False
'Form26.Command8.Visible = False

End Sub

Private Sub Option3_Click()

Form26.Label27.Visible = False
Form26.Label25.Visible = False
Form26.Label24.Visible = False
Form26.Label3.Visible = False
Form26.Label4.Visible = False
Form26.Label12.Visible = False
'Form26.Label13.Visible = False
'Form26.Label23.Visible = False

Form26.Line8.Visible = False
Form26.Line5.Visible = False

'Form26.Text2.Visible = False
'Form26.Text7.Visible = False

'Form26.Command7.Visible = False
'Form26.Command8.Visible = False

End Sub



Private Sub Picture1_Click(Index As Integer)


If Index = 39 Then
CMD1.ShowColor
ModelSymbCol = CMD1.Color
Form26.Picture1(39).BackColor = CMD1.Color
End If

If Index = 21 Then
CMD1.ShowColor
ModelLineCol = CMD1.Color
Form26.Picture1(21).BackColor = CMD1.Color
End If

'picture(0)
If Index = 0 Then
Form26.Picture1(41).Cls
Form26.Picture1(41).FillColor = QBColor(0)
Form26.Picture1(41).FillStyle = 0
Form26.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0), B
ModelSymb = Index + 1
End If

'picture(1)
If Index = 1 Then
Form26.Picture1(41).Cls
Form26.Picture1(41).FillColor = QBColor(0)
Form26.Picture1(41).FillStyle = 1
Form26.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0), B
ModelSymb = Index + 1
End If

'picture(2)
If Index = 2 Then
Form26.Picture1(41).Cls
Form26.Picture1(41).FillColor = QBColor(0)
Form26.Picture1(41).FillStyle = 0
Form26.Picture1(41).Circle (5, 5), 2, QBColor(0)
ModelSymb = Index + 1
End If

'picture(3)
If Index = 3 Then
Form26.Picture1(41).Cls
Form26.Picture1(41).FillColor = QBColor(0)
Form26.Picture1(41).FillStyle = 1
Form26.Picture1(41).Circle (5, 5), 2, QBColor(0)
ModelSymb = Index + 1
End If

'picture(4)
If Index = 4 Then
Form26.Picture1(41).Cls
Form26.Picture1(41).FillStyle = 1
Form26.Picture1(41).Line (5 - 2, 5 - 2)-(5, 5 + 2), QBColor(0)
Form26.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 - 2), QBColor(0)
Form26.Picture1(41).Line (5 + 2, 5 - 2)-(5, 5 + 2), QBColor(0)
ModelSymb = Index + 1
End If

'picture(5)
If Index = 5 Then
Form26.Picture1(41).Cls
Form26.Picture1(41).FillStyle = 1
Form26.Picture1(41).Line (5 - 2, 5 + 2)-(5, 5 - 2), QBColor(0)
Form26.Picture1(41).Line (5 - 2, 5 + 2)-(5 + 2, 5 + 2), QBColor(0)
Form26.Picture1(41).Line (5 + 2, 5 + 2)-(5, 5 - 2), QBColor(0)
ModelSymb = Index + 1
End If

'picture(6)
If Index = 6 Then
Form26.Picture1(41).Cls
Form26.Picture1(41).FillStyle = 1
Form26.Picture1(41).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0)
Form26.Picture1(41).Line (5, 5 - 2)-(5, 5 + 2), QBColor(0)
Form26.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0)
Form26.Picture1(41).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), QBColor(0)
ModelSymb = Index + 1
End If

'picture(7)
If Index = 7 Then
Form26.Picture1(41).Cls
Form26.Picture1(41).FillStyle = 1
Form26.Picture1(41).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0)
Form26.Picture1(41).Line (5, 5 - 2)-(5, 5 + 2), QBColor(0)
ModelSymb = Index + 1
End If

'picture(8)
If Index = 8 Then
Form26.Picture1(41).Cls
Form26.Picture1(41).FillStyle = 1
Form26.Picture1(41).Line (5 - 2, 5)-(5, 5 + 4), QBColor(0)
Form26.Picture1(41).Line (5, 5 + 4)-(5 + 2, 5), QBColor(0)
Form26.Picture1(41).Line (5 + 2, 5)-(5, 5 - 4), QBColor(0)
Form26.Picture1(41).Line (5, 5 - 4)-(5 - 2, 5), QBColor(0)
ModelSymb = Index + 1
End If

End Sub

Private Sub Picture1_KeyPress(Index As Integer, KeyAscii As Integer)

If KeyAscii = 32 Then
Command1_Click
End If

End Sub