VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form8 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "REE spiders"
   ClientHeight    =   5925
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   6420
   LinkTopic       =   "Form8"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   5925
   ScaleWidth      =   6420
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command9 
      Caption         =   "Remove all"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   2760
      TabIndex        =   71
      Top             =   2760
      Width           =   1815
   End
   Begin VB.CommandButton Command8 
      Caption         =   "..."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   48
      TabIndex        =   70
      Top             =   48
      Width           =   375
   End
   Begin VB.Frame Frame2 
      Caption         =   "Options"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   1815
      Left            =   72
      TabIndex        =   58
      Top             =   3480
      Width           =   4608
      Begin VB.Frame Frame6 
         Caption         =   "Line Width"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   705
         Left            =   3324
         TabIndex        =   68
         Top             =   624
         Width           =   1215
         Begin VB.ComboBox Combo6 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   7.5
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   288
            ItemData        =   "Form8.frx":0000
            Left            =   120
            List            =   "Form8.frx":000A
            TabIndex        =   69
            Text            =   "1"
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Frame fraSample1 
         Caption         =   "Graph Dim. (pixel)"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1425
         Left            =   120
         TabIndex        =   63
         Top             =   240
         Width           =   1815
         Begin VB.TextBox Text2 
            Alignment       =   2  'Center
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   10.5
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   330
            Left            =   600
            TabIndex        =   65
            Text            =   "300"
            Top             =   945
            Width           =   1095
         End
         Begin VB.TextBox Text1 
            Alignment       =   2  'Center
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   10.5
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   330
            Left            =   600
            TabIndex        =   64
            Text            =   "500"
            Top             =   360
            Width           =   1095
         End
         Begin VB.Label Label35 
            Caption         =   "Height"
            Height          =   255
            Left            =   105
            TabIndex        =   67
            Top             =   990
            Width           =   615
         End
         Begin VB.Label Label34 
            Caption         =   "Width"
            Height          =   255
            Left            =   105
            TabIndex        =   66
            Top             =   390
            Width           =   615
         End
      End
      Begin VB.Frame Frame4 
         Caption         =   "Symbol Dim"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   705
         Left            =   2040
         TabIndex        =   61
         Top             =   960
         Width           =   1215
         Begin VB.ComboBox Combo4 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   7.5
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   288
            ItemData        =   "Form8.frx":0014
            Left            =   120
            List            =   "Form8.frx":0021
            TabIndex        =   62
            Text            =   "Med"
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Frame Frame3 
         Caption         =   "Symbol Width"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   705
         Left            =   2040
         TabIndex        =   59
         Top             =   240
         Width           =   1215
         Begin VB.ComboBox Combo5 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   7.5
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   288
            ItemData        =   "Form8.frx":0034
            Left            =   120
            List            =   "Form8.frx":003E
            TabIndex        =   60
            Text            =   "1"
            Top             =   240
            Width           =   975
         End
      End
   End
   Begin MSComDlg.CommonDialog CMD1 
      Left            =   3192
      Top             =   4188
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1716
      TabIndex        =   43
      Top             =   5376
      Width           =   1575
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Plot  (SpaceBar)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   72
      TabIndex        =   1
      Top             =   5364
      Width           =   1575
   End
   Begin VB.ComboBox Combo2 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      ItemData        =   "Form8.frx":0048
      Left            =   1680
      List            =   "Form8.frx":0061
      TabIndex        =   41
      Text            =   "COND-Haskin et al.(1968)"
      Top             =   3120
      Width           =   2415
   End
   Begin VB.Frame Frame1 
      Caption         =   "Elements"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   2172
      Left            =   48
      TabIndex        =   7
      Top             =   768
      Width           =   2655
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   14
         Left            =   1920
         Top             =   1836
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   13
         Left            =   1920
         Top             =   1476
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   12
         Left            =   1920
         Top             =   1104
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   11
         Left            =   1920
         Top             =   744
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   10
         Left            =   1920
         Top             =   408
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   9
         Left            =   1056
         Top             =   1836
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   8
         Left            =   1056
         Top             =   1476
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   7
         Left            =   1056
         Top             =   1104
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   6
         Left            =   1056
         Top             =   744
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   5
         Left            =   1056
         Top             =   408
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   4
         Left            =   210
         Top             =   1848
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   3
         Left            =   210
         Top             =   1488
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   2
         Left            =   210
         Top             =   1116
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   1
         Left            =   210
         Top             =   756
         Width           =   132
      End
      Begin VB.Shape Shape1 
         FillStyle       =   0  'Solid
         Height          =   132
         Index           =   0
         Left            =   210
         Top             =   420
         Width           =   132
      End
      Begin VB.Line Line2 
         X1              =   1680
         X2              =   1680
         Y1              =   360
         Y2              =   2040
      End
      Begin VB.Line Line1 
         X1              =   840
         X2              =   840
         Y1              =   360
         Y2              =   2040
      End
      Begin VB.Label Label17 
         Caption         =   "Lu"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2160
         TabIndex        =   22
         Top             =   1800
         Width           =   450
      End
      Begin VB.Label Label16 
         Caption         =   "Yb"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2160
         TabIndex        =   21
         Top             =   1440
         Width           =   450
      End
      Begin VB.Label Label15 
         Caption         =   "Tm"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2160
         TabIndex        =   20
         Top             =   1080
         Width           =   450
      End
      Begin VB.Label Label14 
         Caption         =   "Er"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2160
         TabIndex        =   19
         Top             =   720
         Width           =   450
      End
      Begin VB.Label Label13 
         Caption         =   "Ho"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2160
         TabIndex        =   18
         Top             =   360
         Width           =   450
      End
      Begin VB.Label Label12 
         Caption         =   "Dy"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1320
         TabIndex        =   17
         Top             =   1800
         Width           =   495
      End
      Begin VB.Label Label11 
         Caption         =   "Tb"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1320
         TabIndex        =   16
         Top             =   1440
         Width           =   495
      End
      Begin VB.Label Label10 
         Caption         =   "Gd"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1320
         TabIndex        =   15
         Top             =   1080
         Width           =   495
      End
      Begin VB.Label Label9 
         Caption         =   "Eu"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1320
         TabIndex        =   14
         Top             =   720
         Width           =   495
      End
      Begin VB.Label Label8 
         Caption         =   "Sm"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1320
         TabIndex        =   13
         Top             =   360
         Width           =   495
      End
      Begin VB.Label Label7 
         Caption         =   "Pm"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   480
         TabIndex        =   12
         Top             =   1800
         Width           =   495
      End
      Begin VB.Label Label6 
         Caption         =   "Nd"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   480
         TabIndex        =   11
         Top             =   1440
         Width           =   495
      End
      Begin VB.Label Label5 
         Caption         =   "Pr"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   480
         TabIndex        =   10
         Top             =   1080
         Width           =   495
      End
      Begin VB.Label Label4 
         Caption         =   "Ce"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   480
         TabIndex        =   9
         Top             =   720
         Width           =   495
      End
      Begin VB.Label Label3 
         Caption         =   "La"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   480
         TabIndex        =   8
         Top             =   360
         Width           =   495
      End
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Remove sample"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   2760
      TabIndex        =   5
      Top             =   2520
      Width           =   1815
   End
   Begin VB.ListBox List1 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1620
      ItemData        =   "Form8.frx":0116
      Left            =   2760
      List            =   "Form8.frx":0118
      TabIndex        =   4
      Top             =   720
      Width           =   1815
   End
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   48
      TabIndex        =   3
      Top             =   408
      Width           =   1932
   End
   Begin VB.CommandButton Command1 
      Caption         =   "add"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   2088
      TabIndex        =   2
      Top             =   408
      Width           =   615
   End
   Begin VB.Label Label36 
      Alignment       =   2  'Center
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2880
      TabIndex        =   72
      Top             =   360
      Width           =   1575
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   14
      Left            =   5280
      TabIndex        =   57
      Top             =   5568
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   13
      Left            =   5280
      TabIndex        =   56
      Top             =   5208
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   12
      Left            =   5280
      TabIndex        =   55
      Top             =   4848
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   11
      Left            =   5280
      TabIndex        =   54
      Top             =   4488
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   10
      Left            =   5280
      TabIndex        =   53
      Top             =   4128
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   9
      Left            =   5280
      TabIndex        =   52
      Top             =   3768
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   8
      Left            =   5280
      TabIndex        =   51
      Top             =   3408
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   7
      Left            =   5280
      TabIndex        =   50
      Top             =   3048
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   6
      Left            =   5280
      TabIndex        =   49
      Top             =   2688
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   5
      Left            =   5280
      TabIndex        =   48
      Top             =   2328
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   4
      Left            =   5280
      TabIndex        =   47
      Top             =   1968
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   3
      Left            =   5280
      TabIndex        =   46
      Top             =   1608
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   2
      Left            =   5280
      TabIndex        =   45
      Top             =   1248
      Width           =   1008
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   1
      Left            =   5280
      TabIndex        =   44
      Top             =   888
      Width           =   1008
   End
   Begin VB.Label Label50 
      Caption         =   "----->"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4152
      TabIndex        =   42
      Top             =   3120
      Width           =   612
   End
   Begin VB.Label Label49 
      Alignment       =   2  'Center
      Caption         =   "Condrite or NASC normalizing value"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   492
      Left            =   -132
      TabIndex        =   40
      Top             =   3000
      Width           =   1800
   End
   Begin VB.Label Label48 
      Alignment       =   2  'Center
      Caption         =   "Normalizing Value"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4740
      TabIndex        =   39
      Top             =   84
      Width           =   1572
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   0
      Left            =   5280
      TabIndex        =   38
      Top             =   528
      Width           =   1008
   End
   Begin VB.Label Label32 
      Caption         =   "Lu"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   37
      Top             =   5568
      Width           =   456
   End
   Begin VB.Label Label31 
      Caption         =   "Yb"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   36
      Top             =   5208
      Width           =   456
   End
   Begin VB.Label Label30 
      Caption         =   "Tm"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   35
      Top             =   4848
      Width           =   456
   End
   Begin VB.Label Label29 
      Caption         =   "Er"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   34
      Top             =   4488
      Width           =   456
   End
   Begin VB.Label Label28 
      Caption         =   "Ho"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   33
      Top             =   4128
      Width           =   456
   End
   Begin VB.Label Label27 
      Caption         =   "Dy"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   32
      Top             =   3768
      Width           =   492
   End
   Begin VB.Label Label26 
      Caption         =   "Tb"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   31
      Top             =   3408
      Width           =   492
   End
   Begin VB.Label Label25 
      Caption         =   "Gd"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   30
      Top             =   3048
      Width           =   492
   End
   Begin VB.Label Label24 
      Caption         =   "Eu"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   29
      Top             =   2688
      Width           =   492
   End
   Begin VB.Label Label23 
      Caption         =   "Sm"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   28
      Top             =   2328
      Width           =   492
   End
   Begin VB.Label Label22 
      Caption         =   "Pm"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   27
      Top             =   1968
      Width           =   492
   End
   Begin VB.Label Label21 
      Caption         =   "Nd"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   26
      Top             =   1608
      Width           =   492
   End
   Begin VB.Label Label20 
      Caption         =   "Pr"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   25
      Top             =   1248
      Width           =   492
   End
   Begin VB.Label Label19 
      Caption         =   "Ce"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   24
      Top             =   888
      Width           =   492
   End
   Begin VB.Label Label18 
      Caption         =   "La"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4800
      TabIndex        =   23
      Top             =   528
      Width           =   492
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "Spider List (max 50)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2760
      TabIndex        =   6
      Top             =   90
      Width           =   1815
   End
   Begin VB.Label Label1 
      Caption         =   "Sample"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   600
      TabIndex        =   0
      Top             =   45
      Width           =   855
   End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False




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

If KeyCode = 32 Then
Command5_Click
End If

End Sub

Private Sub Combo2_Click()

'Normalizzazione
If Combo2.Text = "COND-Masuda et al.(1973)" Then
file$ = "\data\normREE-IDMS-Masuda1973.txt"
End If

If Combo2.Text = "COND-Nakamura (1974)" Then
file$ = "\data\normREE-Nakamura1974.txt"
End If

If Combo2.Text = "COND-Haskin et al.(1968)" Then
file$ = "\data\normREE-NAA-Haskin1968.txt"
End If

If Combo2.Text = "COND-Boynton (1984)" Then
file$ = "\data\normREE-IDMS-Boynton1984.txt"
End If

If Combo2.Text = "COND-Sun & McDonald (1989)" Then
file$ = "\data\normREE-SunandMcD1989.txt"
End If

If Combo2.Text = "NASC-Haskin & Frey(1966)" Then
file$ = "\data\normREE-NASC-Haskin&Frey1966.txt"
End If

If Combo2.Text = "NASC-Haskin & Haskin(1966)" Then
file$ = "\data\normREE-NASC-Haskin&Haskin1966.txt"
End If


Open App.Path + file$ For Input As #1

For i = 1 To 15

Input #1, aa

If aa = 1 Then
NormREE(i) = 0
Label33(i - 1).Caption = "/"
GoTo rr
End If

NormREE(i) = aa
Label33(i - 1).Caption = Str(aa)

rr:
Next i

Close #1

End Sub



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

If KeyCode = 32 Then
Command5_Click
End If

End Sub

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

If KeyCode = 32 Then
Command5_Click
End If

End Sub

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

If KeyCode = 32 Then
Command5_Click
End If

End Sub

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

If KeyCode = 32 Then
Command5_Click
End If

End Sub

Private Sub Command1_Click()

If Form8.Combo1.Text = "" Then
GoTo rer
End If

sample$ = Form8.Combo1.Text
ind = Form8.List1.ListCount
For i = 1 To ind
bbb$ = Form8.List1.List(i - 1)
If sample$ = bbb$ Then
GoTo yuy
End If
Next i
List1.AddItem sample$
yuy:
rer:

aaa = Val(List1.ListCount)

Label36.Caption = aaa

Form8.Command5.SetFocus


'-----------

'-----------

End Sub





Private Sub Command2_Click()

On Error GoTo rer
Index = List1.ListIndex
List1.RemoveItem Index

ssss = Form8.List1.ListCount
Form8.Label36.Caption = ssss

Form8.Command5.SetFocus

rer:

End Sub







Private Sub Command5_Click()

'Normalizzazione


zzz1 = Val(Form8.Label36.Caption)

If zzz1 > 50 Then
MsgBox "More than 50 samples are located in the sample list! Please remove some of them and retry!"
Exit Sub
End If


If Combo2.Text = "COND-Masuda et al.(1973)" Then
file$ = "\data\normREE-IDMS-Masuda1973.txt"
End If

If Combo2.Text = "COND-Nakamura (1974)" Then
file$ = "\data\normREE-Nakamura1974.txt"
End If

If Combo2.Text = "COND-Haskin et al.(1968)" Then
file$ = "\data\normREE-NAA-Haskin1968.txt"
End If

If Combo2.Text = "COND-Boynton (1984)" Then
file$ = "\data\normREE-IDMS-Boynton1984.txt"
End If

If Combo2.Text = "COND-Sun & McDonald (1989)" Then
file$ = "\data\normREE-SunandMcD1989.txt"
End If

If Combo2.Text = "NASC-Haskin & Frey(1966)" Then
file$ = "\data\normREE-NASC-Haskin&Frey1966.txt"
End If

If Combo2.Text = "NASC-Haskin & Haskin(1966)" Then
file$ = "\data\normREE-NASC-Haskin&Haskin1966.txt"
End If

If List1.ListCount = 0 Then
Exit Sub
End If

Open App.Path + file$ For Input As #1



For i = 1 To 15

Input #1, aa

If aa = 1 Then
NormREE(i) = 0
Label33(i - 1).Caption = "/"
GoTo rr
End If

NormREE(i) = aa
Label33(i - 1).Caption = Str(aa)

rr:
Next i

Close #1


'On Error GoTo wewe
If SpiNew = False Then
For i = 1 To 15
If OpenPic(i) = 0 Then
Indeks = i
OpenPic(Indeks) = 1
If Indeks > Maxindeks Then
Maxindeks = i
End If
GoTo poi
End If
Next i

For i = 1 To 50 'Numcamp1
For ii = 1 To 15
Spiy(Indeks, ii, i) = 0
Next ii
Next i

If Maxindeks >= 15 Then
MsgBox "I'm not able to open more than 15 windows. Please close one or more winndows!!!", , "Attention!"
Exit Sub
End If

poi:

End If

picforms(Indeks).Picture1.Cls
picforms(Indeks).Picture2.Cls
SpiNew = False

NormSP(Indeks) = file$
picforms(Indeks).Hide

'caratteristiche dei grafici
   Xgraph(Indeks) = Val(Text1.Text)
   Ygraph(Indeks) = Val(Text2.Text)
   
   'simbsp
   If Combo4.Text = "Min" Then
   SimbDim(Indeks) = 2
   End If
   If Combo4.Text = "Med" Then
   SimbDim(Indeks) = 4
   End If
   If Combo4.Text = "Max" Then
   SimbDim(Indeks) = 6
   End If
   
   'simbspsp
   If Combo5.Text = "1" Then
   SimbSp(Indeks) = 1
   End If
   If Combo5.Text = "2" Then
   SimbSp(Indeks) = 2
   End If
   
   'LineSp
   If Combo6.Text = "1" Then
   LineSp(Indeks) = 1
   End If
   If Combo6.Text = "2" Then
   LineSp(Indeks) = 2
   End If


SpiderColorLine(Indeks) = SPIlineCol
ind = Form8.List1.ListCount
NumCampSpi(Indeks) = ind

SPIDERREE(Indeks) = True
SPIDEROTHER(Indeks) = False
binary(Indeks) = False
Triangular(Indeks) = False
DiagramType(Indeks) = "none"

SPI.DeterminaREEPresenti

'MF1.REENewSpiderREEGraph App.Path + "\xx.emf", 500, 300

'determino massimo e minimo

MaxREE1 = 0
MinREE1 = 1E+38
wwq = 0
For i = 1 To ind

'cerco il campione

aaa$ = List1.List(i - 1)
For ii = 1 To Numcamp1
If aaa$ = NomeCamp(ii) Then
n11 = ii
GoTo trt
End If
Next ii
trt:

CampioniSpi(Indeks, i) = n11

SPI.DeterminaValoriREE n11

For iii = 1 To 15
If valREEn(iii) <= 0 Then
GoTo www
End If

If valREEn(iii) > MaxREE1 Then
MaxREE1 = valREEn(iii)
End If

If valREEn(iii) < MinREE1 Then
MinREE1 = valREEn(iii)
End If

www:
Next iii

Next i



'plotto

miny1 = Int(LOG10(MinREE1)) - 1
maxy1 = Int(LOG10(MaxREE1)) + 1
Inty(Indeks) = maxy1 - miny1


MinY(Indeks) = EXP10(miny1)
MaxY(Indeks) = EXP10(maxy1)
MinX(Indeks) = 1
MaxX(Indeks) = 15

DiagramType(Indeks) = "none"
MF1.REENewSpiderREEGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.REE_ASSI
SpiPlotted(Indeks) = ""

Close #2
Open App.Path + "\data\spiderREECamp" + Trim(Indeks) + ".txt" For Output As #2

For i = 1 To ind

'cerco il campione

aaa$ = List1.List(i - 1)
Write #2, aaa$
SpiPlotted(Indeks) = SpiPlotted(Indeks) + Chr$(124) + aaa$
For ii = 1 To Numcamp1
If aaa$ = NomeCamp(ii) Then
n11 = ii
GoTo qqqq
End If
Next ii
qqqq:



SPI.DeterminaValoriREE n11
BackGrnd.FG1.Row = n11
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = n11
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
'MF1.REE_InsertPoint SimbDim(Indeks), col, SPIlineCol, tipo

If tipo > 0 And tipo1 = 1 And SimbFilter(n11) <> 0 Then
MF1.REE_InsertPoint n11, SimbDim(Indeks), col, col, tipo '04-06-2002
End If

Next i

Close #2

MF1.Finegraph

Form8.Hide

GoTo wewe1

wewe:
MsgBox "An Error Occurred", , "Error"

wewe1:

End Sub











Private Sub Command8_Click()

Form19.MFG1.Clear
Form19.MFG1.ColWidth(0) = 3000
Form19.MFG1.ColAlignment(0) = 1
Form19.MFG1.Rows = Numcamp1
Form19.MFG1.ColS = 1

Form19.MfG2.Clear
Form19.MfG2.ColWidth(0) = 3000
Form19.MfG2.ColAlignment(0) = 1
Form19.MfG2.Rows = Numcamp1
Form19.MfG2.ColS = 1


For i = 0 To Numcamp1 - 1
Form19.MFG1.col = 0
Form19.MFG1.Row = i
aaa1 = Form8.Combo1.List(i + 1)
 
Form19.MFG1.Text = aaa1
Next i


ind = Form8.List1.ListCount

Form19.MfG2.Clear

For i = 0 To ind - 1
Form19.MfG2.col = 0
Form19.MfG2.Row = i
Form19.MfG2.Text = Form8.List1.List(i)
Next i

REESample = 1

Form19.Show

Form8.Command5.SetFocus

Form19.SetFocus



End Sub



Private Sub Command9_Click()

List1.Clear

ssss = Form8.List1.ListCount
Form8.Label36.Caption = ssss

Form8.Command5.SetFocus

End Sub



Private Sub Form_Load()
'Normalizzazione
If Combo2.Text = "COND-Masuda et al.(1973)" Then
file$ = "\data\normREE-IDMS-Masuda1973.txt"
End If

If Combo2.Text = "COND-Nakamura (1974)" Then
file$ = "\data\normREE-Nakamura1974.txt"
End If

If Combo2.Text = "COND-Haskin et al.(1968)" Then
file$ = "\data\normREE-NAA-Haskin1968.txt"
End If

If Combo2.Text = "COND-Boynton (1984)" Then
file$ = "\data\normREE-IDMS-Boynton1984.txt"
End If

If Combo2.Text = "COND-Sun & McDonald (1989)" Then
file$ = "\data\normREE-SunandMcD1989.txt"
End If

If Combo2.Text = "NASC-Haskin & Frey(1966)" Then
file$ = "\data\normREE-NASC-Haskin&Frey1966.txt"
End If

If Combo2.Text = "NASC-Haskin & Haskin(1966)" Then
file$ = "\data\normREE-NASC-Haskin&Haskin1966.txt"
End If


Open App.Path + file$ For Input As #1

For i = 1 To 15

Input #1, aa

If aa = 1 Then
NormREE(i) = 0
Label33(i - 1).Caption = "/"
GoTo rr
End If

NormREE(i) = aa
Label33(i - 1).Caption = Str(aa)

rr:
Next i



Close #1
End Sub



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

If KeyCode = 32 Then
Command5_Click
End If

End Sub

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

If KeyCode = 32 Then
Command5_Click
End If

End Sub

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

If KeyCode = 32 Then
Command5_Click
End If

End Sub