VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0FFFF&
   Caption         =   "Form1"
   ClientHeight    =   6795
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9480
   FillColor       =   &H00C0FFFF&
   FillStyle       =   0  'Solid
   LinkTopic       =   "Form1"
   ScaleHeight     =   6795
   ScaleWidth      =   9480
   Begin VB.TextBox Text32 
      Height          =   285
      Left            =   8280
      TabIndex        =   97
      Top             =   720
      Width           =   615
   End
   Begin VB.TextBox Text28 
      Height          =   285
      Left            =   7250
      TabIndex        =   90
      Top             =   840
      Width           =   615
   End
   Begin VB.TextBox Text27 
      Height          =   285
      Left            =   7250
      TabIndex        =   89
      Top             =   480
      Width           =   615
   End
   Begin VB.TextBox Text26 
      Height          =   285
      Left            =   5640
      TabIndex        =   88
      Top             =   840
      Width           =   615
   End
   Begin VB.TextBox Text25 
      Height          =   285
      Left            =   5640
      TabIndex        =   87
      Top             =   480
      Width           =   615
   End
   Begin VB.TextBox Text18 
      Height          =   285
      Left            =   4200
      TabIndex        =   86
      Top             =   840
      Width           =   615
   End
   Begin VB.TextBox Text17 
      Height          =   285
      Left            =   4200
      TabIndex        =   85
      Top             =   480
      Width           =   615
   End
   Begin VB.TextBox Text16 
      Alignment       =   1  'Right Justify
      Height          =   288
      Left            =   6120
      TabIndex        =   84
      Text            =   "15000"
      Top             =   4080
      Width           =   615
   End
   Begin VB.PictureBox Picture3 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   2010
      Left            =   6840
      Picture         =   "dmsp.frx":0000
      ScaleHeight     =   2010
      ScaleWidth      =   2010
      TabIndex        =   80
      Top             =   4200
      Width           =   2010
   End
   Begin VB.TextBox Text40 
      Height          =   288
      Left            =   360
      TabIndex        =   76
      Text            =   "50000"
      Top             =   4080
      Width           =   615
   End
   Begin VB.TextBox Text34 
      Alignment       =   1  'Right Justify
      Height          =   288
      Left            =   3240
      TabIndex        =   75
      Text            =   "150"
      Top             =   4080
      Width           =   495
   End
   Begin VB.TextBox Text36 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   3960
      TabIndex        =   72
      Text            =   "0.0008"
      Top             =   2520
      Width           =   495
   End
   Begin VB.TextBox Text33 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   960
      TabIndex        =   68
      Text            =   "0.01"
      Top             =   2760
      Width           =   492
   End
   Begin VB.TextBox Text31 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   5880
      TabIndex        =   67
      Text            =   "0.02"
      Top             =   2520
      Width           =   495
   End
   Begin VB.TextBox Text30 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   2280
      TabIndex        =   66
      Text            =   "0.14"
      Top             =   2520
      Width           =   492
   End
   Begin VB.TextBox Text29 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   1680
      TabIndex        =   64
      Text            =   "0.14"
      Top             =   2520
      Width           =   492
   End
   Begin VB.Frame Frame9 
      Caption         =   "DMSHB (stor)"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   852
      Left            =   5520
      TabIndex        =   59
      Top             =   2880
      Width           =   1215
      Begin VB.TextBox Text24 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   360
         TabIndex        =   61
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.TextBox Text23 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   360
         TabIndex        =   60
         Text            =   "4.0"
         Top             =   480
         Width           =   495
      End
      Begin VB.Label Label42 
         Caption         =   "D5"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   120
         TabIndex        =   63
         Top             =   240
         Width           =   252
      End
      Begin VB.Label Label41 
         Caption         =   "D6"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   120
         TabIndex        =   62
         Top             =   480
         Width           =   252
      End
   End
   Begin VB.Frame Frame8 
      Caption         =   "MTHB (stor)"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   852
      Left            =   3600
      TabIndex        =   54
      Top             =   2880
      Width           =   1095
      Begin VB.TextBox Text22 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   216
         Left            =   360
         TabIndex        =   56
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.TextBox Text21 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   216
         Left            =   360
         TabIndex        =   55
         Text            =   "0.08"
         Top             =   480
         Width           =   495
      End
      Begin VB.Label Label40 
         Caption         =   "C5"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   120
         TabIndex        =   58
         Top             =   240
         Width           =   252
      End
      Begin VB.Label Label39 
         Caption         =   "C6"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   132
         Left            =   120
         TabIndex        =   57
         Top             =   480
         Width           =   252
      End
   End
   Begin VB.Frame Frame7 
      Caption         =   "Pro. Met"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   852
      Left            =   1680
      TabIndex        =   49
      Top             =   2880
      Width           =   975
      Begin VB.TextBox Text20 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   216
         Left            =   360
         TabIndex        =   51
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.TextBox Text19 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   216
         Left            =   360
         TabIndex        =   50
         Text            =   "1000"
         Top             =   480
         Width           =   495
      End
      Begin VB.Label Label38 
         Caption         =   "B1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   120
         TabIndex        =   53
         Top             =   240
         Width           =   252
      End
      Begin VB.Label Label37 
         Caption         =   "B2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   132
         Left            =   120
         TabIndex        =   52
         Top             =   480
         Width           =   252
      End
   End
   Begin VB.TextBox Text15 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   2760
      TabIndex        =   44
      Text            =   "0.287"
      Top             =   1080
      Width           =   495
   End
   Begin VB.Frame Frame5 
      Caption         =   "Ex. Met"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   1680
      TabIndex        =   39
      Top             =   120
      Width           =   972
      Begin VB.TextBox Text35 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   77
         Text            =   "0.43"
         Top             =   720
         Width           =   495
      End
      Begin VB.TextBox Text14 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   216
         Left            =   360
         TabIndex        =   43
         Text            =   "4.57"
         Top             =   480
         Width           =   492
      End
      Begin VB.TextBox Text13 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   216
         Left            =   360
         TabIndex        =   40
         Text            =   "10000"
         Top             =   240
         Width           =   492
      End
      Begin VB.Label Label53 
         Caption         =   "P3"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   78
         Top             =   720
         Width           =   255
      End
      Begin VB.Label Label29 
         Caption         =   "P2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   120
         TabIndex        =   42
         Top             =   480
         Width           =   252
      End
      Begin VB.Label Label28 
         Caption         =   "P1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   120
         TabIndex        =   41
         Top             =   240
         Width           =   252
      End
   End
   Begin VB.TextBox Text12 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   1080
      TabIndex        =   36
      Text            =   "0.08"
      Top             =   1920
      Width           =   492
   End
   Begin VB.CommandButton Command2 
      Caption         =   "End"
      Height          =   372
      Left            =   7920
      TabIndex        =   31
      Top             =   3480
      Width           =   612
   End
   Begin VB.PictureBox Picture2 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   2010
      Left            =   3840
      Picture         =   "dmsp.frx":D3BA
      ScaleHeight     =   2010
      ScaleWidth      =   2010
      TabIndex        =   28
      Top             =   4200
      Width           =   2010
   End
   Begin VB.TextBox Text10 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   6840
      TabIndex        =   26
      Text            =   "0.07"
      Top             =   1920
      Width           =   495
   End
   Begin VB.TextBox Text9 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   4800
      TabIndex        =   24
      Text            =   "0.07"
      Top             =   1920
      Width           =   495
   End
   Begin VB.TextBox Text8 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   2880
      TabIndex        =   22
      Text            =   "0.07"
      Top             =   1920
      Width           =   492
   End
   Begin VB.Frame Frame4 
      Caption         =   "DMSP"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF00FF&
      Height          =   852
      Left            =   7560
      TabIndex        =   19
      Top             =   1560
      Width           =   1095
      Begin VB.TextBox Text7 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   360
         TabIndex        =   21
         Text            =   "20000"
         Top             =   480
         Width           =   495
      End
      Begin VB.TextBox Text6 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   216
         Left            =   360
         TabIndex        =   20
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label25 
         Caption         =   "E2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   120
         TabIndex        =   35
         Top             =   480
         Width           =   252
      End
      Begin VB.Label Label24 
         Caption         =   "E1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   120
         TabIndex        =   34
         Top             =   240
         Width           =   252
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "DMSHB (met)"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   852
      Left            =   5520
      TabIndex        =   14
      Top             =   1560
      Width           =   1215
      Begin VB.TextBox Text5 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   360
         TabIndex        =   18
         Text            =   "0.4"
         Top             =   480
         Width           =   495
      End
      Begin VB.TextBox Text4 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   360
         TabIndex        =   17
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label19 
         Caption         =   "D2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   120
         TabIndex        =   16
         Top             =   480
         Width           =   252
      End
      Begin VB.Label Label18 
         Caption         =   "D1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   120
         TabIndex        =   15
         Top             =   240
         Width           =   252
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "MTHB (met)"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   852
      Left            =   3600
      TabIndex        =   9
      Top             =   1560
      Width           =   1095
      Begin VB.TextBox Text3 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   216
         Left            =   360
         TabIndex        =   11
         Text            =   "0.03"
         Top             =   480
         Width           =   495
      End
      Begin VB.TextBox Text2 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   360
         TabIndex        =   10
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label17 
         Caption         =   "C2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   120
         TabIndex        =   13
         Top             =   480
         Width           =   252
      End
      Begin VB.Label Label16 
         Caption         =   "C1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   120
         TabIndex        =   12
         Top             =   240
         Width           =   252
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "End. Met"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   852
      Left            =   1680
      TabIndex        =   6
      Top             =   1560
      Width           =   975
      Begin VB.TextBox Text11 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   216
         Left            =   360
         TabIndex        =   32
         Text            =   "14.0"
         Top             =   480
         Width           =   495
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   216
         Left            =   360
         TabIndex        =   7
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label14 
         Caption         =   "A2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   132
         Left            =   120
         TabIndex        =   33
         Top             =   480
         Width           =   252
      End
      Begin VB.Label Label15 
         Caption         =   "A1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   132
         Left            =   120
         TabIndex        =   8
         Top             =   240
         Width           =   252
      End
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   2010
      Left            =   1080
      Picture         =   "dmsp.frx":1A774
      ScaleHeight     =   2010
      ScaleWidth      =   2010
      TabIndex        =   5
      Top             =   4200
      Width           =   2010
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Start"
      Height          =   372
      Left            =   7920
      TabIndex        =   0
      Top             =   2880
      Width           =   612
   End
   Begin VB.Label Label45 
      BackStyle       =   0  'Transparent
      Caption         =   "-1"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   840
      TabIndex        =   101
      Top             =   5000
      Width           =   135
   End
   Begin VB.Label Label44 
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "1200"
      Height          =   255
      Left            =   2880
      TabIndex        =   100
      Top             =   6240
      Width           =   375
   End
   Begin VB.Label Label43 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Mean Absolute Deviations"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4920
      TabIndex        =   99
      Top             =   120
      Width           =   3255
   End
   Begin VB.Label Label36 
      BackStyle       =   0  'Transparent
      Caption         =   "Grand mean"
      Height          =   255
      Left            =   8160
      TabIndex        =   98
      Top             =   480
      Width           =   1095
   End
   Begin VB.Label Label35 
      BackStyle       =   0  'Transparent
      Caption         =   "DMSP"
      Height          =   255
      Left            =   6720
      TabIndex        =   96
      Top             =   840
      Width           =   495
   End
   Begin VB.Label Label34 
      BackStyle       =   0  'Transparent
      Caption         =   "DMSHB"
      Height          =   255
      Left            =   6600
      TabIndex        =   95
      Top             =   480
      Width           =   615
   End
   Begin VB.Label Label23 
      BackStyle       =   0  'Transparent
      Caption         =   "MTHB"
      Height          =   255
      Left            =   5080
      TabIndex        =   94
      Top             =   840
      Width           =   495
   End
   Begin VB.Label Label13 
      BackStyle       =   0  'Transparent
      Caption         =   "Pro. Met"
      Height          =   255
      Left            =   4950
      TabIndex        =   93
      Top             =   480
      Width           =   615
   End
   Begin VB.Label Label12 
      BackStyle       =   0  'Transparent
      Caption         =   "End. Met"
      Height          =   255
      Left            =   3480
      TabIndex        =   92
      Top             =   840
      Width           =   735
   End
   Begin VB.Label Label11 
      BackStyle       =   0  'Transparent
      Caption         =   "Ex. Met"
      Height          =   255
      Left            =   3600
      TabIndex        =   91
      Top             =   480
      Width           =   615
   End
   Begin VB.Label Label10 
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "1200"
      Height          =   255
      Left            =   8640
      TabIndex        =   83
      Top             =   6240
      Width           =   375
   End
   Begin VB.Label Label8 
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      Height          =   255
      Left            =   6720
      TabIndex        =   82
      Top             =   6240
      Width           =   135
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Time (min)"
      Height          =   255
      Left            =   7440
      TabIndex        =   81
      Top             =   6240
      Width           =   855
   End
   Begin VB.Label Label4 
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "1200"
      Height          =   255
      Left            =   5640
      TabIndex        =   79
      Top             =   6240
      Width           =   375
   End
   Begin VB.Line Line34 
      X1              =   1320
      X2              =   1200
      Y1              =   3120
      Y2              =   3240
   End
   Begin VB.Line Line31 
      X1              =   1080
      X2              =   1200
      Y1              =   3120
      Y2              =   3240
   End
   Begin VB.Line Line30 
      X1              =   1200
      X2              =   1200
      Y1              =   2280
      Y2              =   3240
   End
   Begin VB.Line Line26 
      X1              =   1680
      X2              =   1200
      Y1              =   2280
      Y2              =   2280
   End
   Begin VB.Label Label62 
      BackStyle       =   0  'Transparent
      Caption         =   "A7"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   720
      TabIndex        =   74
      Top             =   2760
      Width           =   255
   End
   Begin VB.Label Label59 
      BackStyle       =   0  'Transparent
      Caption         =   "C4"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   4500
      TabIndex        =   73
      Top             =   2520
      Width           =   255
   End
   Begin VB.Label Label56 
      BackStyle       =   0  'Transparent
      Caption         =   "other"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   1080
      TabIndex        =   71
      Top             =   3270
      Width           =   375
   End
   Begin VB.Label Label49 
      BackStyle       =   0  'Transparent
      Caption         =   "D4"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   6460
      TabIndex        =   70
      Top             =   2520
      Width           =   255
   End
   Begin VB.Label Label48 
      BackStyle       =   0  'Transparent
      Caption         =   "B3 + A8"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2830
      TabIndex        =   69
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label47 
      BackStyle       =   0  'Transparent
      Caption         =   "B4"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   1440
      TabIndex        =   65
      Top             =   2520
      Width           =   255
   End
   Begin VB.Line Line43 
      X1              =   5880
      X2              =   5640
      Y1              =   2280
      Y2              =   2280
   End
   Begin VB.Line Line42 
      X1              =   6240
      X2              =   6120
      Y1              =   2760
      Y2              =   2880
   End
   Begin VB.Line Line41 
      X1              =   6000
      X2              =   6120
      Y1              =   2760
      Y2              =   2880
   End
   Begin VB.Line Line40 
      X1              =   6240
      X2              =   6120
      Y1              =   2520
      Y2              =   2400
   End
   Begin VB.Line Line39 
      X1              =   6000
      X2              =   6120
      Y1              =   2520
      Y2              =   2400
   End
   Begin VB.Line Line38 
      X1              =   6120
      X2              =   6120
      Y1              =   2880
      Y2              =   2400
   End
   Begin VB.Line Line33 
      X1              =   4320
      X2              =   4200
      Y1              =   2520
      Y2              =   2400
   End
   Begin VB.Line Line32 
      X1              =   4080
      X2              =   4200
      Y1              =   2520
      Y2              =   2400
   End
   Begin VB.Line Line29 
      X1              =   1920
      X2              =   2040
      Y1              =   2400
      Y2              =   2520
   End
   Begin VB.Line Line28 
      X1              =   1920
      X2              =   1920
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line27 
      X1              =   1800
      X2              =   1920
      Y1              =   2520
      Y2              =   2400
   End
   Begin VB.Line Line25 
      X1              =   4080
      X2              =   4200
      Y1              =   2760
      Y2              =   2880
   End
   Begin VB.Line Line24 
      X1              =   4320
      X2              =   4200
      Y1              =   2760
      Y2              =   2880
   End
   Begin VB.Line Line23 
      X1              =   4200
      X2              =   4200
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line22 
      X1              =   2400
      X2              =   2280
      Y1              =   2880
      Y2              =   2760
   End
   Begin VB.Line Line21 
      X1              =   2400
      X2              =   2520
      Y1              =   2880
      Y2              =   2760
   End
   Begin VB.Line Line20 
      X1              =   2400
      X2              =   2400
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Label Label33 
      BackStyle       =   0  'Transparent
      Caption         =   "In"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   48
      Top             =   1440
      Width           =   255
   End
   Begin VB.Label Label32 
      BackStyle       =   0  'Transparent
      Caption         =   "Out"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   47
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Label31 
      BackStyle       =   0  'Transparent
      Caption         =   "A8 = P2.k"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   132
      Left            =   1420
      TabIndex        =   46
      Top             =   1120
      Width           =   612
   End
   Begin VB.Label Label30 
      BackStyle       =   0  'Transparent
      Caption         =   "where k ="
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   132
      Left            =   2160
      TabIndex        =   45
      Top             =   1120
      Width           =   612
   End
   Begin VB.Line Line16 
      X1              =   1920
      X2              =   2040
      Y1              =   1440
      Y2              =   1560
   End
   Begin VB.Line Line15 
      X1              =   2160
      X2              =   2040
      Y1              =   1440
      Y2              =   1560
   End
   Begin VB.Line Line14 
      X1              =   2040
      X2              =   2040
      Y1              =   960
      Y2              =   1560
   End
   Begin VB.Line Line13 
      X1              =   120
      X2              =   9000
      Y1              =   1320
      Y2              =   1320
   End
   Begin VB.Label Label27 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Unlabeled homocysteine at specific activity F1 = 0"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   50
      TabIndex        =   38
      Top             =   1800
      Width           =   975
   End
   Begin VB.Label Label26 
      BackStyle       =   0  'Transparent
      Caption         =   "A3"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   132
      Left            =   1200
      TabIndex        =   37
      Top             =   1740
      Width           =   252
   End
   Begin VB.Line Line12 
      X1              =   1560
      X2              =   1680
      Y1              =   2160
      Y2              =   2040
   End
   Begin VB.Line Line11 
      X1              =   1560
      X2              =   1680
      Y1              =   1920
      Y2              =   2040
   End
   Begin VB.Line Line10 
      X1              =   960
      X2              =   1680
      Y1              =   2040
      Y2              =   2040
   End
   Begin VB.Label Label9 
      BackStyle       =   0  'Transparent
      Caption         =   "Time (min)"
      Height          =   255
      Left            =   4440
      TabIndex        =   30
      Top             =   6240
      Width           =   855
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      Height          =   255
      Left            =   3720
      TabIndex        =   29
      Top             =   6240
      Width           =   135
   End
   Begin VB.Label Label22 
      BackStyle       =   0  'Transparent
      Caption         =   "E3"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   6960
      TabIndex        =   27
      Top             =   1740
      Width           =   255
   End
   Begin VB.Label Label21 
      BackStyle       =   0  'Transparent
      Caption         =   "D3"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4920
      TabIndex        =   25
      Top             =   1740
      Width           =   255
   End
   Begin VB.Label Label20 
      BackStyle       =   0  'Transparent
      Caption         =   "C3"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   3000
      TabIndex        =   23
      Top             =   1740
      Width           =   255
   End
   Begin VB.Line Line9 
      X1              =   7440
      X2              =   7560
      Y1              =   2160
      Y2              =   2040
   End
   Begin VB.Line Line7 
      X1              =   7440
      X2              =   7560
      Y1              =   1920
      Y2              =   2040
   End
   Begin VB.Line Line8 
      X1              =   6720
      X2              =   7560
      Y1              =   2040
      Y2              =   2040
   End
   Begin VB.Line Line6 
      X1              =   5400
      X2              =   5520
      Y1              =   1920
      Y2              =   2040
   End
   Begin VB.Line Line5 
      X1              =   5400
      X2              =   5520
      Y1              =   2160
      Y2              =   2040
   End
   Begin VB.Line Line4 
      X1              =   4680
      X2              =   5520
      Y1              =   2040
      Y2              =   2040
   End
   Begin VB.Line Line3 
      X1              =   3480
      X2              =   3600
      Y1              =   2160
      Y2              =   2040
   End
   Begin VB.Line Line2 
      X1              =   3480
      X2              =   3600
      Y1              =   1920
      Y2              =   2040
   End
   Begin VB.Line Line1 
      X1              =   3600
      X2              =   2640
      Y1              =   2040
      Y2              =   2040
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "nCi.gfw"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   5040
      Width           =   855
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "Time (min)"
      Height          =   255
      Left            =   1560
      TabIndex        =   3
      Top             =   6240
      Width           =   975
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      Height          =   255
      Left            =   720
      TabIndex        =   2
      Top             =   6120
      Width           =   135
   End
   Begin VB.Label Label2 
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      Height          =   255
      Left            =   960
      TabIndex        =   1
      Top             =   6240
      Width           =   135
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim Datapts As Integer
Dim Timearray(7)
Dim Exmetarray(7)
Dim dExmetarray(7)
Dim Endmetarray(7)
Dim dEndmetarray(7)
Dim Prometarray(7)
Dim dPrometarray(7)
Dim MTHBarray(7)
Dim dMTHBarray(7)
Dim DMSHBarray(7)
Dim dDMSHBarray(7)
Dim DMSParray(7)
Dim dDMSParray(7)
Picture1.Refresh
Picture2.Refresh
Picture3.Refresh
Mx = 1200
My1 = Text40.Text
My2 = Text34.Text
My3 = Text16.Text
Datapts = 7
Timearray(1) = 5
Timearray(2) = 10
Timearray(3) = 30
Timearray(4) = 60
Timearray(5) = 120
Timearray(6) = 240
Timearray(7) = 1080
Exmetarray(1) = 12990
Exmetarray(2) = 5660
Exmetarray(3) = 3510
Exmetarray(4) = 4240
Exmetarray(5) = 4130
Exmetarray(6) = 5150
Exmetarray(7) = 6470
Endmetarray(1) = 20920
Endmetarray(2) = 28170
Endmetarray(3) = 28850
Endmetarray(4) = 15120
Endmetarray(5) = 7100
Endmetarray(6) = 1930
Endmetarray(7) = 350
Prometarray(1) = 5560
Prometarray(2) = 10200
Prometarray(3) = 14270
Prometarray(4) = 21200
Prometarray(5) = 27620
Prometarray(6) = 30380
Prometarray(7) = 27560
MTHBarray(1) = 69
MTHBarray(2) = 130
MTHBarray(3) = 97
MTHBarray(4) = 91
MTHBarray(5) = 68
MTHBarray(6) = 26
MTHBarray(7) = 0
DMSHBarray(1) = 720
DMSHBarray(2) = 1100
DMSHBarray(3) = 1200
DMSHBarray(4) = 1780
DMSHBarray(5) = 1540
DMSHBarray(6) = 1450
DMSHBarray(7) = 190
DMSParray(1) = 430
DMSParray(2) = 990
DMSParray(3) = 1790
DMSParray(4) = 6460
DMSParray(5) = 6230
DMSParray(6) = 9800
DMSParray(7) = 13670
For i = 1 To Datapts Step 1
X = Timearray(i)
X = (X * 2000 / Mx)
Y = Exmetarray(i)
Y = 2000 - (Y * 2000 / My1)
Picture1.Circle (X, Y), 30, QBColor(0)
Y = Endmetarray(i)
Y = 2000 - (Y * 2000 / My1)
Picture1.Circle (X, Y), 30, QBColor(9)
Y = Prometarray(i)
Y = 2000 - (Y * 2000 / My1)
Picture1.Circle (X, Y), 30, QBColor(10)
Y = MTHBarray(i)
Y = 2000 - (Y * 2000 / My2)
Picture2.Circle (X, Y), 30, QBColor(4)
Y = DMSHBarray(i)
Y = 2000 - (Y * 2000 / My3)
Picture3.Circle (X, Y), 30, QBColor(12)
Y = DMSParray(i)
Y = 2000 - (Y * 2000 / My3)
Picture3.Circle (X, Y), 30, QBColor(13)
Next i
k = Text15.Text
P1 = Text13.Text
P2 = Text14.Text
P3 = Text35.Text
A1 = Text1.Text
A2 = Text11.Text
A3 = Text12.Text
A7 = Text33.Text
B1 = Text20.Text
B2 = Text19.Text
B3 = Text30.Text
B4 = Text29.Text
C1 = Text2.Text
C2 = Text3.Text
C3 = Text8.Text
C4 = Text36.Text
C5 = Text22.Text
C6 = Text21.Text
D1 = Text4.Text
D2 = Text5.Text
D3 = Text9.Text
D4 = Text31.Text
D5 = Text24.Text
D6 = Text23.Text
E1 = Text6.Text
E2 = Text7.Text
E3 = Text10.Text
F1 = 0
r = 0
z = Mx / 2400
For t = 0 To Mx + 1 Step z
A8 = P2 * k
P2 = P2 - z * A8
If A8 > 0 Then A1 = (A1 * A2 + P1 * z * A8) / (A2 + z * A8)
If A8 > 0 Then A2 = A2 + z * A8
If A3 > 0 Then A1 = (A1 * A2 + F1 * z * A3) / (A2 + z * A3)
If A3 > 0 Then A2 = A2 + z * A3
If A7 > 0 Then A1 = (A1 * A2 - A1 * z * A7) / (A2 - z * A7)
If A7 > 0 Then A2 = A2 - z * A7
If B3 > 0 Then A1 = (A1 * A2 - A1 * z * (B3 + A8)) / (A2 - z * (B3 + A8))
If B3 > 0 Then A2 = A2 - z * (B3 + A8)
If C3 > 0 Then A1 = (A1 * A2 - A1 * z * C3) / (A2 - z * C3)
If C3 > 0 Then A2 = A2 - z * C3
If B3 > 0 Then B1 = (B1 * B2 + A1 * z * (B3 + A8)) / (B2 + z * (B3 + A8))
If B3 > 0 Then B2 = B2 + z * (B3 + A8)
If B4 > 0 Then B1 = (B1 * B2 - B1 * z * B4) / (B2 - z * B4)
If B4 > 0 Then B2 = B2 - z * B4
If B4 > 0 Then A1 = (A1 * A2 + B1 * z * B4) / (A2 + z * B4)
If B4 > 0 Then A2 = A2 + z * B4
If C3 > 0 Then C1 = (C1 * C2 + A1 * z * C3) / (C2 + z * C3)
If C3 > 0 Then C2 = C2 + z * C3
If C4 > 0 Then C1 = (C1 * C2 - C1 * z * C4) / (C2 - z * C4)
If C4 > 0 Then C2 = C2 - z * C4
If C4 > 0 Then C5 = (C5 * C6 + C1 * z * C4) / (C6 + z * C4)
If C4 > 0 Then C6 = C6 + z * C4
If C4 > 0 Then C5 = (C5 * C6 - C5 * z * C4) / (C6 - z * C4)
If C4 > 0 Then C6 = C6 - z * C4
If C4 > 0 Then C1 = (C1 * C2 + C5 * z * C4) / (C2 + z * C4)
If C4 > 0 Then C2 = C2 + z * C4
If D3 > 0 Then C1 = (C1 * C2 - C1 * z * D3) / (C2 - z * D3)
If D3 > 0 Then C2 = C2 - z * D3
If D3 > 0 Then D1 = (D1 * D2 + C1 * z * D3) / (D2 + z * D3)
If D3 > 0 Then D2 = D2 + z * D3
If D4 > 0 Then D1 = (D1 * D2 - D1 * z * D4) / (D2 - z * D4)
If D4 > 0 Then D2 = D2 - z * D4
If D4 > 0 Then D5 = (D5 * D6 + D1 * z * D4) / (D6 + z * D4)
If D4 > 0 Then D6 = D6 + z * D4
If D4 > 0 Then D5 = (D5 * D6 - D5 * z * D4) / (D6 - z * D4)
If D4 > 0 Then D6 = D6 - z * D4
If D4 > 0 Then D1 = (D1 * D2 + D5 * z * D4) / (D2 + z * D4)
If D4 > 0 Then D2 = D2 + z * D4
If E3 > 0 Then D1 = (D1 * D2 - D1 * z * E3) / (D2 - z * E3)
If E3 > 0 Then D2 = D2 - z * E3
If E3 > 0 Then E1 = (E1 * E2 + D1 * z * E3) / (E2 + z * E3)
If E3 > 0 Then E2 = E2 + z * E3
If A2 < 0 Then MsgBox$ ("Simulation terminated because A2 < 0")
If A2 < 0 Then End
If B2 < 0 Then MsgBox$ ("Simulation terminated because B2 < 0")
If B2 < 0 Then End
If C2 < 0 Then MsgBox$ ("Simulation terminated because C2 < 0")
If C2 < 0 Then End
If D2 < 0 Then MsgBox$ ("Simulation terminated because D2 < 0")
If D2 < 0 Then End
If E2 < 0 Then MsgBox$ ("Simulation terminated because E2 < 0")
If E2 < 0 Then End
X = t
Y = (P1 * P2) + (P3 * P1)
X = (X * 2000 / Mx)
If r = 10 Then dExmetarray(1) = Abs(Y - Exmetarray(1))
If r = 20 Then dExmetarray(2) = Abs(Y - Exmetarray(2))
If r = 60 Then dExmetarray(3) = Abs(Y - Exmetarray(3))
If r = 120 Then dExmetarray(4) = Abs(Y - Exmetarray(4))
If r = 240 Then dExmetarray(5) = Abs(Y - Exmetarray(5))
If r = 480 Then dExmetarray(6) = Abs(Y - Exmetarray(6))
If r = 2160 Then dExmetarray(7) = Abs(Y - Exmetarray(7))
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(0)
Y = (A1 * A2)
If r = 10 Then dEndmetarray(1) = Abs(Y - Endmetarray(1))
If r = 20 Then dEndmetarray(2) = Abs(Y - Endmetarray(2))
If r = 60 Then dEndmetarray(3) = Abs(Y - Endmetarray(3))
If r = 120 Then dEndmetarray(4) = Abs(Y - Endmetarray(4))
If r = 240 Then dEndmetarray(5) = Abs(Y - Endmetarray(5))
If r = 480 Then dEndmetarray(6) = Abs(Y - Endmetarray(6))
If r = 2160 Then dEndmetarray(7) = Abs(Y - Endmetarray(7))
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(9)
Y = (B1 * B2)
If r = 10 Then dPrometarray(1) = Abs(Y - Prometarray(1))
If r = 20 Then dPrometarray(2) = Abs(Y - Prometarray(2))
If r = 60 Then dPrometarray(3) = Abs(Y - Prometarray(3))
If r = 120 Then dPrometarray(4) = Abs(Y - Prometarray(4))
If r = 240 Then dPrometarray(5) = Abs(Y - Prometarray(5))
If r = 480 Then dPrometarray(6) = Abs(Y - Prometarray(6))
If r = 2160 Then dPrometarray(7) = Abs(Y - Prometarray(7))
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(10)
Y = (C1 * C2) + (C5 * C6)
If r = 10 Then dMTHBarray(1) = Abs(Y - MTHBarray(1))
If r = 20 Then dMTHBarray(2) = Abs(Y - MTHBarray(2))
If r = 60 Then dMTHBarray(3) = Abs(Y - MTHBarray(3))
If r = 120 Then dMTHBarray(4) = Abs(Y - MTHBarray(4))
If r = 240 Then dMTHBarray(5) = Abs(Y - MTHBarray(5))
If r = 480 Then dMTHBarray(6) = Abs(Y - MTHBarray(6))
If r = 2160 Then dMTHBarray(7) = Abs(Y - MTHBarray(7))
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(4)
Y = (D1 * D2) + (D5 * D6)
If r = 10 Then dDMSHBarray(1) = Abs(Y - DMSHBarray(1))
If r = 20 Then dDMSHBarray(2) = Abs(Y - DMSHBarray(2))
If r = 60 Then dDMSHBarray(3) = Abs(Y - DMSHBarray(3))
If r = 120 Then dDMSHBarray(4) = Abs(Y - DMSHBarray(4))
If r = 240 Then dDMSHBarray(5) = Abs(Y - DMSHBarray(5))
If r = 480 Then dDMSHBarray(6) = Abs(Y - DMSHBarray(6))
If r = 2160 Then dDMSHBarray(7) = Abs(Y - DMSHBarray(7))
Y = 2000 - (Y * 2000 / My3)
Picture3.PSet (X, Y), QBColor(12)
Y = (E1 * E2)
If r = 10 Then dDMSParray(1) = Abs(Y - DMSParray(1))
If r = 20 Then dDMSParray(2) = Abs(Y - DMSParray(2))
If r = 60 Then dDMSParray(3) = Abs(Y - DMSParray(3))
If r = 120 Then dDMSParray(4) = Abs(Y - DMSParray(4))
If r = 240 Then dDMSParray(5) = Abs(Y - DMSParray(5))
If r = 480 Then dDMSParray(6) = Abs(Y - DMSParray(6))
If r = 2160 Then dDMSParray(7) = Abs(Y - DMSParray(7))
Y = 2000 - (Y * 2000 / My3)
Picture3.PSet (X, Y), QBColor(13)
r = r + 1
Next t
For i = 1 To Datapts Step 1
SDExmet = SDExmet + dExmetarray(i)
SDEndmet = SDEndmet + dEndmetarray(i)
SDPromet = SDPromet + dPrometarray(i)
SDMTHB = SDMTHB + dMTHBarray(i)
SDDMSHB = SDDMSHB + dDMSHBarray(i)
SDDMSP = SDDMSP + dDMSParray(i)
Next i
Text17.Text = SDExmet / Datapts
Text18.Text = SDEndmet / Datapts
Text25.Text = SDPromet / Datapts
Text26.Text = SDMTHB / Datapts
Text27.Text = SDDMSHB / Datapts
Text28.Text = SDDMSP / Datapts
SDTotal = (SDExmet + SDEndmet + SDPromet + SDMTHB + SDDMSHB + SDDMSP) / (Datapts * 6)
Text32.Text = SDTotal
End Sub

Private Sub Command2_Click()
Unload Form1
End Sub