VERSION 5.00
Begin VB.Form AlarmsTimers 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00000000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Alarms & Timers"
   ClientHeight    =   8025
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   10080
   Icon            =   "AlarmsTimers.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8025
   ScaleWidth      =   10080
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame7 
      BackColor       =   &H00FF8080&
      Caption         =   " Sound Buzzer  Condition 3"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1880
      Index           =   2
      Left            =   6680
      TabIndex        =   156
      Top             =   5980
      Width           =   3350
      Begin VB.ComboBox BuzzerAlertVariableCondition3 
         Height          =   315
         Index           =   3
         ItemData        =   "AlarmsTimers.frx":030A
         Left            =   1200
         List            =   "AlarmsTimers.frx":031D
         TabIndex        =   107
         Text            =   "Temp"
         Top             =   1350
         Width           =   855
      End
      Begin VB.ComboBox BuzzerAlertVariableCondition3 
         Height          =   315
         Index           =   2
         ItemData        =   "AlarmsTimers.frx":033F
         Left            =   1200
         List            =   "AlarmsTimers.frx":0352
         TabIndex        =   104
         Text            =   "Temp"
         Top             =   990
         Width           =   855
      End
      Begin VB.ComboBox BuzzerAlertVariableCondition3 
         Height          =   315
         Index           =   1
         ItemData        =   "AlarmsTimers.frx":0374
         Left            =   1200
         List            =   "AlarmsTimers.frx":0387
         TabIndex        =   101
         Text            =   "Temp"
         Top             =   630
         Width           =   855
      End
      Begin VB.ComboBox BuzzerAlertVariableCondition3 
         Height          =   315
         Index           =   0
         ItemData        =   "AlarmsTimers.frx":03A9
         Left            =   1200
         List            =   "AlarmsTimers.frx":03BC
         TabIndex        =   98
         Text            =   "Temp"
         Top             =   270
         Width           =   855
      End
      Begin VB.CheckBox Condition3BuzzerOnIfLessThan 
         BackColor       =   &H00FF8080&
         Caption         =   "ON,  IF                         <"
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   220
         TabIndex        =   97
         Top             =   240
         Width           =   2100
      End
      Begin VB.CheckBox Condition3BuzzerOnIfGreaterThan 
         BackColor       =   &H00FF8080&
         Caption         =   "ON,  IF                         >"
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   220
         TabIndex        =   100
         Top             =   600
         Value           =   1  'Checked
         Width           =   2100
      End
      Begin VB.CheckBox Condition3BuzzerOffIfLessThan 
         BackColor       =   &H00FF8080&
         Caption         =   "OFF, IF                         <"
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   220
         TabIndex        =   103
         Top             =   960
         Width           =   2100
      End
      Begin VB.CheckBox Condition3BuzzerOffIfGreaterThan 
         BackColor       =   &H00FF8080&
         Caption         =   "OFF, IF                         >"
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   220
         TabIndex        =   106
         Top             =   1320
         Value           =   1  'Checked
         Width           =   2100
      End
      Begin VB.TextBox Condition3BuzzerAlertVal 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Index           =   1
         Left            =   2350
         TabIndex        =   102
         Top             =   645
         Width           =   800
      End
      Begin VB.TextBox Condition3BuzzerAlertVal 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Index           =   2
         Left            =   2350
         MaxLength       =   5
         TabIndex        =   105
         Top             =   1005
         Width           =   800
      End
      Begin VB.TextBox Condition3BuzzerAlertVal 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Index           =   3
         Left            =   2350
         TabIndex        =   108
         Top             =   1365
         Width           =   800
      End
      Begin VB.TextBox Condition3BuzzerAlertVal 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Index           =   0
         Left            =   2350
         MaxLength       =   5
         TabIndex        =   99
         Top             =   280
         Width           =   800
      End
   End
   Begin VB.Frame Frame7 
      BackColor       =   &H00FF8080&
      Caption         =   " Sound Buzzer  Condition 2"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1880
      Index           =   0
      Left            =   3360
      TabIndex        =   155
      Top             =   5980
      Width           =   3320
      Begin VB.ComboBox BuzzerAlertVariableCondition2 
         Height          =   315
         Index           =   3
         ItemData        =   "AlarmsTimers.frx":03DE
         Left            =   1200
         List            =   "AlarmsTimers.frx":03F1
         TabIndex        =   95
         Text            =   "Temp"
         Top             =   1350
         Width           =   855
      End
      Begin VB.ComboBox BuzzerAlertVariableCondition2 
         Height          =   315
         Index           =   2
         ItemData        =   "AlarmsTimers.frx":0413
         Left            =   1200
         List            =   "AlarmsTimers.frx":0426
         TabIndex        =   92
         Text            =   "Temp"
         Top             =   990
         Width           =   855
      End
      Begin VB.ComboBox BuzzerAlertVariableCondition2 
         Height          =   315
         Index           =   1
         ItemData        =   "AlarmsTimers.frx":0448
         Left            =   1200
         List            =   "AlarmsTimers.frx":045B
         TabIndex        =   89
         Text            =   "Temp"
         Top             =   630
         Width           =   855
      End
      Begin VB.ComboBox BuzzerAlertVariableCondition2 
         Height          =   315
         Index           =   0
         ItemData        =   "AlarmsTimers.frx":047D
         Left            =   1200
         List            =   "AlarmsTimers.frx":0490
         TabIndex        =   86
         Text            =   "Temp"
         Top             =   270
         Width           =   855
      End
      Begin VB.CheckBox Condition2BuzzerOnIfLessThan 
         BackColor       =   &H00FF8080&
         Caption         =   "ON,  IF                         <"
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   220
         TabIndex        =   85
         Top             =   240
         Width           =   2100
      End
      Begin VB.CheckBox Condition2BuzzerOnIfGreaterThan 
         BackColor       =   &H00FF8080&
         Caption         =   "ON,  IF                         >"
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   220
         TabIndex        =   88
         Top             =   600
         Value           =   1  'Checked
         Width           =   2100
      End
      Begin VB.CheckBox Condition2BuzzerOffIfLessThan 
         BackColor       =   &H00FF8080&
         Caption         =   "OFF, IF                         <"
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   220
         TabIndex        =   91
         Top             =   960
         Width           =   2100
      End
      Begin VB.CheckBox Condition2BuzzerOffIfGreaterThan 
         BackColor       =   &H00FF8080&
         Caption         =   "OFF, IF                         >"
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   220
         TabIndex        =   94
         Top             =   1320
         Value           =   1  'Checked
         Width           =   2100
      End
      Begin VB.TextBox Condition2BuzzerAlertVal 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Index           =   1
         Left            =   2350
         TabIndex        =   90
         Top             =   645
         Width           =   800
      End
      Begin VB.TextBox Condition2BuzzerAlertVal 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Index           =   2
         Left            =   2350
         MaxLength       =   5
         TabIndex        =   93
         Top             =   1005
         Width           =   800
      End
      Begin VB.TextBox Condition2BuzzerAlertVal 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Index           =   3
         Left            =   2350
         TabIndex        =   96
         Top             =   1365
         Width           =   800
      End
      Begin VB.TextBox Condition2BuzzerAlertVal 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Index           =   0
         Left            =   2350
         MaxLength       =   5
         TabIndex        =   87
         Top             =   280
         Width           =   800
      End
   End
   Begin VB.Frame Frame7 
      BackColor       =   &H00FF8080&
      Caption         =   " Sound Buzzer  Condition 1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1880
      Index           =   1
      Left            =   50
      TabIndex        =   154
      Top             =   5980
      Width           =   3320
      Begin VB.TextBox Condition1BuzzerAlertVal 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Index           =   0
         Left            =   2350
         MaxLength       =   5
         TabIndex        =   75
         Top             =   280
         Width           =   800
      End
      Begin VB.TextBox Condition1BuzzerAlertVal 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Index           =   3
         Left            =   2350
         TabIndex        =   84
         Top             =   1365
         Width           =   800
      End
      Begin VB.TextBox Condition1BuzzerAlertVal 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Index           =   2
         Left            =   2350
         MaxLength       =   5
         TabIndex        =   81
         Top             =   1005
         Width           =   800
      End
      Begin VB.TextBox Condition1BuzzerAlertVal 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Index           =   1
         Left            =   2350
         TabIndex        =   78
         Top             =   645
         Width           =   800
      End
      Begin VB.ComboBox BuzzerAlertVariableCondition1 
         Height          =   315
         Index           =   0
         ItemData        =   "AlarmsTimers.frx":04B2
         Left            =   1200
         List            =   "AlarmsTimers.frx":04C5
         TabIndex        =   74
         Text            =   "Temp"
         Top             =   270
         Width           =   855
      End
      Begin VB.ComboBox BuzzerAlertVariableCondition1 
         Height          =   315
         Index           =   1
         ItemData        =   "AlarmsTimers.frx":04E7
         Left            =   1200
         List            =   "AlarmsTimers.frx":04FA
         TabIndex        =   77
         Text            =   "Temp"
         Top             =   630
         Width           =   855
      End
      Begin VB.ComboBox BuzzerAlertVariableCondition1 
         Height          =   315
         Index           =   2
         ItemData        =   "AlarmsTimers.frx":051C
         Left            =   1200
         List            =   "AlarmsTimers.frx":052F
         TabIndex        =   80
         Text            =   "Temp"
         Top             =   990
         Width           =   855
      End
      Begin VB.ComboBox BuzzerAlertVariableCondition1 
         Height          =   315
         Index           =   3
         ItemData        =   "AlarmsTimers.frx":0551
         Left            =   1200
         List            =   "AlarmsTimers.frx":0564
         TabIndex        =   83
         Text            =   "Temp"
         Top             =   1350
         Width           =   855
      End
      Begin VB.CheckBox Condition1BuzzerOffIfGreaterThan 
         BackColor       =   &H00FF8080&
         Caption         =   "OFF, IF                         >"
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   220
         TabIndex        =   82
         Top             =   1320
         Value           =   1  'Checked
         Width           =   2100
      End
      Begin VB.CheckBox Condition1BuzzerOffIfLessThan 
         BackColor       =   &H00FF8080&
         Caption         =   "OFF, IF                         <"
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   220
         TabIndex        =   79
         Top             =   960
         Width           =   2100
      End
      Begin VB.CheckBox Condition1BuzzerOnIfGreaterThan 
         BackColor       =   &H00FF8080&
         Caption         =   "ON,  IF                         >"
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   220
         TabIndex        =   76
         Top             =   600
         Value           =   1  'Checked
         Width           =   2100
      End
      Begin VB.CheckBox Condition1BuzzerOnIfLessThan 
         BackColor       =   &H00FF8080&
         Caption         =   "ON,  IF                         <"
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   220
         TabIndex        =   73
         Top             =   240
         Width           =   2100
      End
   End
   Begin VB.Frame Frame3 
      BackColor       =   &H00FF8080&
      Caption         =   "Timer Using Relay 2"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   3100
      Index           =   0
      Left            =   50
      TabIndex        =   158
      Top             =   2920
      Width           =   9975
      Begin VB.Frame Frame2 
         BackColor       =   &H00000000&
         ForeColor       =   &H00FFFFFF&
         Height          =   1380
         Index           =   1
         Left            =   150
         TabIndex        =   182
         Top             =   220
         Width           =   9660
         Begin VB.CheckBox Relay2EnableEvent1 
            Caption         =   "Enable Event 1"
            Height          =   300
            Left            =   6500
            TabIndex        =   49
            Top             =   100
            Value           =   1  'Checked
            Width           =   1575
         End
         Begin VB.CheckBox Relay2UseDate 
            Caption         =   "Use Date"
            Height          =   300
            Index           =   0
            Left            =   8520
            TabIndex        =   50
            Top             =   100
            Value           =   1  'Checked
            Width           =   1000
         End
         Begin VB.Frame Frame5 
            Height          =   495
            Index           =   2
            Left            =   6480
            TabIndex        =   184
            Top             =   360
            Width           =   3015
            Begin VB.OptionButton RelayOFF 
               Caption         =   "OFF"
               Height          =   300
               Index           =   4
               Left            =   2325
               TabIndex        =   52
               Top             =   150
               Value           =   -1  'True
               Width           =   615
            End
            Begin VB.OptionButton Relay2StartTimeStatus 
               Caption         =   "ON"
               Height          =   300
               Index           =   0
               Left            =   1720
               TabIndex        =   51
               Top             =   150
               Width           =   615
            End
            Begin VB.Label Label3 
               Caption         =   "At Start Time Relay ="
               Height          =   255
               Index           =   2
               Left            =   120
               TabIndex        =   185
               Top             =   180
               Width           =   1695
            End
         End
         Begin VB.Frame Frame5 
            Height          =   495
            Index           =   3
            Left            =   6480
            TabIndex        =   204
            Top             =   720
            Width           =   3015
            Begin VB.OptionButton Relay2StopTimeStatus 
               Caption         =   "ON"
               Height          =   300
               Index           =   0
               Left            =   1720
               TabIndex        =   53
               Top             =   150
               Width           =   615
            End
            Begin VB.OptionButton RelayOFF 
               Caption         =   "OFF"
               Height          =   300
               Index           =   5
               Left            =   2325
               TabIndex        =   54
               Top             =   150
               Value           =   -1  'True
               Width           =   615
            End
            Begin VB.Label Label3 
               Caption         =   "At Stop Time Relay ="
               Height          =   255
               Index           =   3
               Left            =   120
               TabIndex        =   205
               Top             =   180
               Width           =   1695
            End
         End
         Begin VB.Frame Frame1 
            BackColor       =   &H00000000&
            Caption         =   "Stop Date && Time Event 1"
            ForeColor       =   &H00FFFFFF&
            Height          =   1215
            Index           =   7
            Left            =   3150
            TabIndex        =   195
            Top             =   120
            Width           =   3165
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "Date"
               ForeColor       =   &H000000FF&
               Height          =   840
               Index           =   15
               Left            =   140
               TabIndex        =   200
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay2StopYear 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   45
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StopMonth 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   44
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StopDay 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   43
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   31
                  Left            =   920
                  TabIndex        =   203
                  Top             =   285
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   30
                  Left            =   450
                  TabIndex        =   202
                  Top             =   285
                  Width           =   135
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " DD    MM     YY"
                  ForeColor       =   &H000000FF&
                  Height          =   255
                  Index           =   15
                  Left            =   120
                  TabIndex        =   201
                  Top             =   550
                  Width           =   1455
               End
            End
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "24Hr Time"
               ForeColor       =   &H000000FF&
               Height          =   840
               Index           =   14
               Left            =   1580
               TabIndex        =   196
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay2StopHR 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   46
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StopMin 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   47
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StopSec 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   48
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " HR    Min    Sec"
                  ForeColor       =   &H000000FF&
                  Height          =   255
                  Index           =   14
                  Left            =   120
                  TabIndex        =   199
                  Top             =   550
                  Width           =   1455
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   29
                  Left            =   470
                  TabIndex        =   198
                  Top             =   275
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   28
                  Left            =   920
                  TabIndex        =   197
                  Top             =   275
                  Width           =   135
               End
            End
         End
         Begin VB.Frame Frame1 
            BackColor       =   &H00000000&
            Caption         =   "Start Date && Time Event 1"
            ForeColor       =   &H00FFFFFF&
            Height          =   1215
            Index           =   2
            Left            =   0
            TabIndex        =   186
            Top             =   120
            Width           =   3165
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "24Hr Time"
               ForeColor       =   &H0000FFFF&
               Height          =   840
               Index           =   5
               Left            =   1580
               TabIndex        =   191
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay2StartSec 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   42
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StartMin 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   41
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StartHR 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   40
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   11
                  Left            =   920
                  TabIndex        =   194
                  Top             =   275
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   10
                  Left            =   470
                  TabIndex        =   193
                  Top             =   275
                  Width           =   135
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " HR    Min    Sec"
                  ForeColor       =   &H0000FFFF&
                  Height          =   255
                  Index           =   5
                  Left            =   120
                  TabIndex        =   192
                  Top             =   550
                  Width           =   1455
               End
            End
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "Date"
               ForeColor       =   &H0000FFFF&
               Height          =   840
               Index           =   4
               Left            =   140
               TabIndex        =   187
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay2StartDay 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   37
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StartMonth 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   38
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StartYear 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   39
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " DD    MM     YY"
                  ForeColor       =   &H0000FFFF&
                  Height          =   255
                  Index           =   4
                  Left            =   120
                  TabIndex        =   190
                  Top             =   550
                  Width           =   1455
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   9
                  Left            =   450
                  TabIndex        =   189
                  Top             =   285
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   8
                  Left            =   920
                  TabIndex        =   188
                  Top             =   285
                  Width           =   135
               End
            End
         End
         Begin VB.Frame Frame4 
            Height          =   120
            Index           =   0
            Left            =   6360
            TabIndex        =   183
            Top             =   1200
            Width           =   3320
         End
         Begin VB.Shape Shape1 
            BackColor       =   &H8000000F&
            BackStyle       =   1  'Opaque
            Height          =   1280
            Index           =   0
            Left            =   6300
            Top             =   90
            Width           =   3380
         End
      End
      Begin VB.Frame Frame2 
         ForeColor       =   &H00FFFFFF&
         Height          =   1380
         Index           =   0
         Left            =   150
         TabIndex        =   159
         Top             =   1560
         Width           =   9660
         Begin VB.CheckBox Relay2EnableEvent2 
            Caption         =   "Enable Event 2"
            Height          =   300
            Left            =   6500
            TabIndex        =   67
            Top             =   120
            Value           =   1  'Checked
            Width           =   1800
         End
         Begin VB.CheckBox Relay2UseDate 
            Caption         =   "Use Date"
            Height          =   300
            Index           =   1
            Left            =   8520
            TabIndex        =   68
            Top             =   120
            Value           =   1  'Checked
            Width           =   1000
         End
         Begin VB.Frame Frame5 
            Height          =   495
            Index           =   0
            Left            =   6480
            TabIndex        =   160
            Top             =   375
            Width           =   3015
            Begin VB.OptionButton Relay2StartTimeStatus 
               Caption         =   "ON"
               Height          =   300
               Index           =   1
               Left            =   1720
               TabIndex        =   69
               Top             =   150
               Width           =   615
            End
            Begin VB.OptionButton RelayOFF 
               Caption         =   "OFF"
               Height          =   300
               Index           =   6
               Left            =   2325
               TabIndex        =   70
               Top             =   150
               Value           =   -1  'True
               Width           =   615
            End
            Begin VB.Label Label3 
               Caption         =   "At Start Time Relay ="
               Height          =   255
               Index           =   0
               Left            =   120
               TabIndex        =   161
               Top             =   180
               Width           =   1695
            End
         End
         Begin VB.Frame Frame5 
            Height          =   495
            Index           =   1
            Left            =   6480
            TabIndex        =   180
            Top             =   735
            Width           =   3015
            Begin VB.OptionButton RelayOFF 
               Caption         =   "OFF"
               Height          =   300
               Index           =   7
               Left            =   2325
               TabIndex        =   72
               Top             =   150
               Value           =   -1  'True
               Width           =   615
            End
            Begin VB.OptionButton Relay2StopTimeStatus 
               Caption         =   "ON"
               Height          =   300
               Index           =   1
               Left            =   1720
               TabIndex        =   71
               Top             =   150
               Width           =   615
            End
            Begin VB.Label Label3 
               Caption         =   "At Stop Time Relay ="
               Height          =   255
               Index           =   1
               Left            =   120
               TabIndex        =   181
               Top             =   180
               Width           =   1695
            End
         End
         Begin VB.Frame Frame1 
            BackColor       =   &H00000000&
            Caption         =   "Start Date && Time Event 2"
            ForeColor       =   &H00FFFFFF&
            Height          =   1215
            Index           =   1
            Left            =   0
            TabIndex        =   171
            Top             =   120
            Width           =   3165
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "Date"
               ForeColor       =   &H0000FFFF&
               Height          =   840
               Index           =   3
               Left            =   140
               TabIndex        =   176
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay2StartYear 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   57
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StartMonth 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   56
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StartDay 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   55
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   7
                  Left            =   920
                  TabIndex        =   179
                  Top             =   285
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   6
                  Left            =   450
                  TabIndex        =   178
                  Top             =   285
                  Width           =   135
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " DD    MM     YY"
                  ForeColor       =   &H0000FFFF&
                  Height          =   255
                  Index           =   3
                  Left            =   120
                  TabIndex        =   177
                  Top             =   550
                  Width           =   1455
               End
            End
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "24Hr Time"
               ForeColor       =   &H0000FFFF&
               Height          =   840
               Index           =   2
               Left            =   1580
               TabIndex        =   172
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay2StartHR 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   58
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StartMin 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   59
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StartSec 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   60
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " HR    Min    Sec"
                  ForeColor       =   &H0000FFFF&
                  Height          =   255
                  Index           =   2
                  Left            =   120
                  TabIndex        =   175
                  Top             =   550
                  Width           =   1455
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   5
                  Left            =   470
                  TabIndex        =   174
                  Top             =   275
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   4
                  Left            =   920
                  TabIndex        =   173
                  Top             =   275
                  Width           =   135
               End
            End
         End
         Begin VB.Frame Frame1 
            BackColor       =   &H00000000&
            Caption         =   "Stop Date && Time Event 2"
            ForeColor       =   &H00FFFFFF&
            Height          =   1215
            Index           =   0
            Left            =   3150
            TabIndex        =   162
            Top             =   120
            Width           =   3165
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "24Hr Time"
               ForeColor       =   &H000000FF&
               Height          =   840
               Index           =   1
               Left            =   1580
               TabIndex        =   167
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay2StopSec 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   66
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StopMin 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   65
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StopHR 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   64
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   3
                  Left            =   920
                  TabIndex        =   170
                  Top             =   275
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   2
                  Left            =   470
                  TabIndex        =   169
                  Top             =   275
                  Width           =   135
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " HR    Min    Sec"
                  ForeColor       =   &H000000FF&
                  Height          =   255
                  Index           =   1
                  Left            =   120
                  TabIndex        =   168
                  Top             =   550
                  Width           =   1455
               End
            End
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "Date"
               ForeColor       =   &H000000FF&
               Height          =   840
               Index           =   0
               Left            =   140
               TabIndex        =   163
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay2StopDay 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   61
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StopMonth 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   62
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay2StopYear 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   63
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " DD    MM     YY"
                  ForeColor       =   &H000000FF&
                  Height          =   255
                  Index           =   0
                  Left            =   120
                  TabIndex        =   166
                  Top             =   550
                  Width           =   1455
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   1
                  Left            =   450
                  TabIndex        =   165
                  Top             =   285
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   0
                  Left            =   920
                  TabIndex        =   164
                  Top             =   285
                  Width           =   135
               End
            End
         End
      End
   End
   Begin VB.Frame Frame3 
      BackColor       =   &H00FF8080&
      Caption         =   "Timer Using Relay 1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   3100
      Index           =   1
      Left            =   50
      TabIndex        =   2
      Top             =   30
      Width           =   9975
      Begin VB.Frame Frame2 
         ForeColor       =   &H00FFFFFF&
         Height          =   1380
         Index           =   3
         Left            =   150
         TabIndex        =   131
         Top             =   1560
         Width           =   9660
         Begin VB.CheckBox Relay1EnableEvent2 
            Caption         =   "Enable Event 2"
            Height          =   300
            Left            =   6495
            TabIndex        =   31
            Top             =   120
            Value           =   1  'Checked
            Width           =   1575
         End
         Begin VB.CheckBox Relay1UseDate 
            Caption         =   "Use Date"
            Height          =   300
            Index           =   1
            Left            =   8520
            TabIndex        =   32
            Top             =   120
            Value           =   1  'Checked
            Width           =   1000
         End
         Begin VB.Frame Frame5 
            Height          =   495
            Index           =   6
            Left            =   6480
            TabIndex        =   132
            Top             =   375
            Width           =   3015
            Begin VB.OptionButton RelayOFF 
               Caption         =   "OFF"
               Height          =   300
               Index           =   2
               Left            =   2325
               TabIndex        =   206
               Top             =   150
               Value           =   -1  'True
               Width           =   615
            End
            Begin VB.OptionButton Relay1StartTimeStatus 
               Caption         =   "ON"
               Height          =   300
               Index           =   1
               Left            =   1720
               TabIndex        =   33
               Top             =   150
               Width           =   615
            End
            Begin VB.Label Label3 
               Caption         =   "At Start Time Relay ="
               Height          =   255
               Index           =   6
               Left            =   120
               TabIndex        =   133
               Top             =   180
               Width           =   1695
            End
         End
         Begin VB.Frame Frame1 
            BackColor       =   &H00000000&
            Caption         =   "Stop Date && Time Event 2"
            ForeColor       =   &H00FFFFFF&
            Height          =   1215
            Index           =   6
            Left            =   3150
            TabIndex        =   145
            Top             =   120
            Width           =   3165
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "Date"
               ForeColor       =   &H0000FF00&
               Height          =   840
               Index           =   13
               Left            =   140
               TabIndex        =   150
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay1StopYear 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   27
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StopMonth 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   26
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StopDay 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   25
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   27
                  Left            =   920
                  TabIndex        =   153
                  Top             =   285
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   26
                  Left            =   450
                  TabIndex        =   152
                  Top             =   285
                  Width           =   135
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " DD    MM     YY"
                  ForeColor       =   &H0000FF00&
                  Height          =   255
                  Index           =   13
                  Left            =   120
                  TabIndex        =   151
                  Top             =   550
                  Width           =   1455
               End
            End
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "24Hr Time"
               ForeColor       =   &H0000FF00&
               Height          =   840
               Index           =   12
               Left            =   1580
               TabIndex        =   146
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay1StopHR 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   28
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StopMin 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   29
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StopSec 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   30
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " HR    Min    Sec"
                  ForeColor       =   &H0000FF00&
                  Height          =   255
                  Index           =   12
                  Left            =   120
                  TabIndex        =   149
                  Top             =   550
                  Width           =   1455
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   25
                  Left            =   470
                  TabIndex        =   148
                  Top             =   275
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   24
                  Left            =   920
                  TabIndex        =   147
                  Top             =   275
                  Width           =   135
               End
            End
         End
         Begin VB.Frame Frame1 
            BackColor       =   &H00000000&
            Caption         =   "Start Date && Time Event 2"
            ForeColor       =   &H00FFFFFF&
            Height          =   1215
            Index           =   5
            Left            =   0
            TabIndex        =   136
            Top             =   120
            Width           =   3165
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "24Hr Time"
               ForeColor       =   &H0000FFFF&
               Height          =   840
               Index           =   11
               Left            =   1580
               TabIndex        =   141
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay1StartSec 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   24
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StartMin 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   23
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StartHR 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   22
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   23
                  Left            =   920
                  TabIndex        =   144
                  Top             =   275
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   22
                  Left            =   470
                  TabIndex        =   143
                  Top             =   275
                  Width           =   135
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " HR    Min    Sec"
                  ForeColor       =   &H0000FFFF&
                  Height          =   255
                  Index           =   11
                  Left            =   120
                  TabIndex        =   142
                  Top             =   550
                  Width           =   1455
               End
            End
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "Date"
               ForeColor       =   &H0000FFFF&
               Height          =   840
               Index           =   10
               Left            =   140
               TabIndex        =   137
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay1StartDay 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   19
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StartMonth 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   20
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StartYear 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   1
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   21
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " DD    MM     YY"
                  ForeColor       =   &H0000FFFF&
                  Height          =   255
                  Index           =   10
                  Left            =   120
                  TabIndex        =   140
                  Top             =   550
                  Width           =   1455
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   21
                  Left            =   450
                  TabIndex        =   139
                  Top             =   285
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   20
                  Left            =   920
                  TabIndex        =   138
                  Top             =   285
                  Width           =   135
               End
            End
         End
         Begin VB.Frame Frame5 
            Height          =   495
            Index           =   7
            Left            =   6480
            TabIndex        =   134
            Top             =   735
            Width           =   3015
            Begin VB.OptionButton Relay1StopTimeStatus 
               Caption         =   "ON"
               Height          =   300
               Index           =   1
               Left            =   1720
               TabIndex        =   35
               Top             =   150
               Width           =   615
            End
            Begin VB.OptionButton RelayOFF 
               Caption         =   "OFF"
               Height          =   300
               Index           =   3
               Left            =   2325
               TabIndex        =   36
               Top             =   150
               Value           =   -1  'True
               Width           =   615
            End
            Begin VB.Label Label3 
               Caption         =   "At Stop Time Relay ="
               Height          =   255
               Index           =   7
               Left            =   120
               TabIndex        =   135
               Top             =   180
               Width           =   1695
            End
         End
      End
      Begin VB.Frame Frame2 
         BackColor       =   &H00000000&
         ForeColor       =   &H00FFFFFF&
         Height          =   1380
         Index           =   2
         Left            =   150
         TabIndex        =   34
         Top             =   220
         Width           =   9660
         Begin VB.CheckBox Relay1EnableEvent1 
            Caption         =   "Enable Event 1"
            Height          =   300
            Left            =   6500
            TabIndex        =   13
            Top             =   100
            Value           =   1  'Checked
            Width           =   1575
         End
         Begin VB.CheckBox Relay1UseDate 
            Caption         =   "Use Date"
            Height          =   300
            Index           =   0
            Left            =   8520
            TabIndex        =   14
            Top             =   100
            Value           =   1  'Checked
            Width           =   1000
         End
         Begin VB.Frame Frame4 
            Height          =   120
            Index           =   1
            Left            =   6360
            TabIndex        =   157
            Top             =   1200
            Width           =   3320
         End
         Begin VB.Frame Frame5 
            Height          =   495
            Index           =   4
            Left            =   6480
            TabIndex        =   109
            Top             =   360
            Width           =   3015
            Begin VB.OptionButton Relay1StartTimeStatus 
               Caption         =   "ON"
               Height          =   300
               Index           =   0
               Left            =   1720
               TabIndex        =   15
               Top             =   150
               Width           =   615
            End
            Begin VB.OptionButton RelayOFF 
               Caption         =   "OFF"
               Height          =   300
               Index           =   0
               Left            =   2325
               TabIndex        =   16
               Top             =   150
               Value           =   -1  'True
               Width           =   615
            End
            Begin VB.Label Label3 
               Caption         =   "At Start Time Relay ="
               Height          =   255
               Index           =   4
               Left            =   120
               TabIndex        =   110
               Top             =   180
               Width           =   1695
            End
         End
         Begin VB.Frame Frame1 
            BackColor       =   &H00000000&
            Caption         =   "Start Date && Time Event 1"
            ForeColor       =   &H00FFFFFF&
            Height          =   1215
            Index           =   4
            Left            =   0
            TabIndex        =   122
            Top             =   120
            Width           =   3165
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "Date"
               ForeColor       =   &H0000FFFF&
               Height          =   840
               Index           =   9
               Left            =   140
               TabIndex        =   127
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay1StartYear 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   3
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StartMonth 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   1
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StartDay 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   0
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   19
                  Left            =   920
                  TabIndex        =   130
                  Top             =   285
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   18
                  Left            =   450
                  TabIndex        =   129
                  Top             =   285
                  Width           =   135
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " DD    MM     YY"
                  ForeColor       =   &H0000FFFF&
                  Height          =   255
                  Index           =   9
                  Left            =   120
                  TabIndex        =   128
                  Top             =   550
                  Width           =   1455
               End
            End
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "24Hr Time"
               ForeColor       =   &H0000FFFF&
               Height          =   840
               Index           =   8
               Left            =   1580
               TabIndex        =   123
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay1StartHR 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   4
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StartMin 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   5
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StartSec 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   6
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " HR    Min    Sec"
                  ForeColor       =   &H0000FFFF&
                  Height          =   255
                  Index           =   8
                  Left            =   120
                  TabIndex        =   126
                  Top             =   550
                  Width           =   1455
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   17
                  Left            =   470
                  TabIndex        =   125
                  Top             =   275
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   16
                  Left            =   920
                  TabIndex        =   124
                  Top             =   275
                  Width           =   135
               End
            End
         End
         Begin VB.Frame Frame1 
            BackColor       =   &H00000000&
            Caption         =   "Stop Date && Time Event 1"
            ForeColor       =   &H00FFFFFF&
            Height          =   1215
            Index           =   3
            Left            =   3150
            TabIndex        =   113
            Top             =   120
            Width           =   3165
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "24Hr Time"
               ForeColor       =   &H0000FF00&
               Height          =   840
               Index           =   7
               Left            =   1580
               TabIndex        =   118
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay1StopSec 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   12
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StopMin 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   11
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StopHR 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   10
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   15
                  Left            =   920
                  TabIndex        =   121
                  Top             =   275
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   ":"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   14
                  Left            =   470
                  TabIndex        =   120
                  Top             =   275
                  Width           =   135
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " HR    Min    Sec"
                  ForeColor       =   &H0000FF00&
                  Height          =   255
                  Index           =   7
                  Left            =   120
                  TabIndex        =   119
                  Top             =   550
                  Width           =   1455
               End
            End
            Begin VB.Frame Frame8 
               BackColor       =   &H00000000&
               Caption         =   "Date"
               ForeColor       =   &H0000FF00&
               Height          =   840
               Index           =   6
               Left            =   140
               TabIndex        =   114
               Top             =   220
               Width           =   1450
               Begin VB.TextBox Relay1StopDay 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   120
                  MaxLength       =   2
                  TabIndex        =   7
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StopMonth 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   570
                  MaxLength       =   2
                  TabIndex        =   8
                  Top             =   240
                  Width           =   310
               End
               Begin VB.TextBox Relay1StopYear 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H00800000&
                  Height          =   285
                  Index           =   0
                  Left            =   1020
                  MaxLength       =   2
                  TabIndex        =   9
                  Top             =   240
                  Width           =   310
               End
               Begin VB.Label Label2 
                  BackStyle       =   0  'Transparent
                  Caption         =   " DD    MM     YY"
                  ForeColor       =   &H0000FF00&
                  Height          =   255
                  Index           =   6
                  Left            =   120
                  TabIndex        =   117
                  Top             =   550
                  Width           =   1455
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   13
                  Left            =   450
                  TabIndex        =   116
                  Top             =   285
                  Width           =   135
               End
               Begin VB.Label Label1 
                  BackColor       =   &H00000000&
                  Caption         =   "/"
                  ForeColor       =   &H00FFFFFF&
                  Height          =   255
                  Index           =   12
                  Left            =   920
                  TabIndex        =   115
                  Top             =   285
                  Width           =   135
               End
            End
         End
         Begin VB.Frame Frame5 
            Height          =   495
            Index           =   5
            Left            =   6480
            TabIndex        =   111
            Top             =   720
            Width           =   3015
            Begin VB.OptionButton RelayOFF 
               Caption         =   "OFF"
               Height          =   300
               Index           =   1
               Left            =   2325
               TabIndex        =   18
               Top             =   150
               Value           =   -1  'True
               Width           =   615
            End
            Begin VB.OptionButton Relay1StopTimeStatus 
               Caption         =   "ON"
               Height          =   300
               Index           =   0
               Left            =   1720
               TabIndex        =   17
               Top             =   150
               Width           =   615
            End
            Begin VB.Label Label3 
               Caption         =   "At Stop Time Relay ="
               Height          =   255
               Index           =   5
               Left            =   120
               TabIndex        =   112
               Top             =   180
               Width           =   1695
            End
         End
         Begin VB.Shape Shape1 
            BackColor       =   &H8000000F&
            BackStyle       =   1  'Opaque
            Height          =   1280
            Index           =   1
            Left            =   6300
            Top             =   90
            Width           =   3380
         End
      End
   End
End
Attribute VB_Name = "AlarmsTimers"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub ApplySettings()
   On Error Resume Next
'------------------------
'-------- Relay 1 -------
'------------------------
'Now paste it all together
'Start Date
   For LoopX = 0 To 1
       Relay1StartDate(LoopX) = Trim(Relay1StartMonth(LoopX).Text) + "-" + _
       Trim(Relay1StartDay(LoopX).Text) + "-20" + Trim(Relay1StartYear(LoopX).Text)
   Next
'Start Time
   For LoopX = 0 To 1
       Relay1StartTime(LoopX) = Trim(Relay1StartHR(LoopX).Text) + ":" + _
       Trim(Relay1StartMin(LoopX).Text) + ":" + Trim(Relay1StartSec(LoopX).Text)
   Next
'Stop Date
   For LoopX = 0 To 1
       Relay1StopDate(LoopX) = Trim(Relay1StopMonth(LoopX).Text) + "-" + _
       Trim(Relay1StopDay(LoopX).Text) + "-20" + Trim(Relay1StopYear(LoopX).Text)
   Next
'Stop Time
   For LoopX = 0 To 1
       Relay1StopTime(LoopX) = Trim(Relay1StopHR(LoopX).Text) + ":" + _
       Trim(Relay1StopMin(LoopX).Text) + ":" + Trim(Relay1StopSec(LoopX).Text)
   Next
'------------------------
'-------- Relay 2 -------
'------------------------
'Now paste it all together
'Start Date
   For LoopX = 0 To 1
       Relay2StartDate(LoopX) = Trim(Relay2StartMonth(LoopX).Text) + "-" + _
       Trim(Relay2StartDay(LoopX).Text) + "-20" + Trim(Relay2StartYear(LoopX).Text)
   Next
'Start Time
   For LoopX = 0 To 1
       Relay2StartTime(LoopX) = Trim(Relay2StartHR(LoopX).Text) + ":" + _
       Trim(Relay2StartMin(LoopX).Text) + ":" + Trim(Relay2StartSec(LoopX).Text)
   Next
'Stop Date
   For LoopX = 0 To 1
       Relay2StopDate(LoopX) = Trim(Relay2StopMonth(LoopX).Text) + "-" + _
       Trim(Relay2StopDay(LoopX).Text) + "-20" + Trim(Relay2StopYear(LoopX).Text)
   Next
'Stop Time
   For LoopX = 0 To 1
       Relay2StopTime(LoopX) = Trim(Relay2StopHR(LoopX).Text) + ":" + _
       Trim(Relay2StopMin(LoopX).Text) + ":" + Trim(Relay2StopSec(LoopX).Text)
   Next
End Sub

Private Sub Condition1BuzzerAlertVal_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Condition2BuzzerAlertVal_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Condition3BuzzerAlertVal_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StartDay_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StartMonth_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StartYear_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StartSec_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StartMin_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StartHR_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StopDay_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StopHR_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StopMin_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StopMonth_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StopSec_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StopYear_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay2StartDay_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay2StartMonth_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay2StartYear_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay2StartSec_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay2StartMin_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay2StartHR_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay2StopDay_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay2StopHR_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay2StopMin_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay2StopMonth_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay2StopSec_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay2StopYear_KeyPress(Index As Integer, KeyAscii As Integer)
If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8)) Then KeyAscii = 0
End Sub

Private Sub Relay1StartSec_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay1StartMin_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay1StartHR_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay1StopSec_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay1StopMin_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay1StopHR_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay1StartDay_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay1StartMonth_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay1StartYear_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay1StopDay_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay1StopMonth_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay1StopYear_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay2StartSec_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay2StartMin_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay2StartHR_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay2StopSec_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay2StopMin_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay2StopHR_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay2StartDay_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay2StartMonth_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay2StartYear_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay2StopDay_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay2StopMonth_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Relay2StopYear_Change(Index As Integer)
   Call ApplySettings
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Me.Hide
   Cancel = True
End Sub

Private Sub Form_Resize()
   On Error Resume Next
   If AlarmsTimers.Width > 10200 Then AlarmsTimers.Width = 10200
   If AlarmsTimers.Height > 8400 Then AlarmsTimers.Height = 8400
End Sub

