VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmPowerConnections 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Power Pin Connections"
   ClientHeight    =   5385
   ClientLeft      =   3030
   ClientTop       =   1920
   ClientWidth     =   3750
   DrawWidth       =   5
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   HelpContextID   =   600
   Icon            =   "frmPowerConnections.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5385
   ScaleWidth      =   3750
   StartUpPosition =   1  'CenterOwner
   Begin ICTester.ucDIP ucDIP1 
      Height          =   1305
      Left            =   465
      TabIndex        =   13
      TabStop         =   0   'False
      Top             =   600
      Width           =   3000
      _ExtentX        =   5292
      _ExtentY        =   2302
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   3675
      Top             =   3780
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   76
      ImageHeight     =   66
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   2
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmPowerConnections.frx":0442
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmPowerConnections.frx":0F32
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "&Cancel"
      Height          =   330
      Left            =   2295
      TabIndex        =   1
      Top             =   5040
      Width           =   1155
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "&OK"
      Default         =   -1  'True
      Height          =   330
      Left            =   360
      TabIndex        =   0
      Top             =   5040
      Width           =   1155
   End
   Begin VB.PictureBox picIC 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Height          =   885
      Left            =   3000
      ScaleHeight     =   885
      ScaleWidth      =   2010
      TabIndex        =   10
      Top             =   2895
      Width           =   2010
      Begin VB.Line Line2 
         X1              =   75
         X2              =   75
         Y1              =   780
         Y2              =   900
      End
      Begin VB.Line Line1 
         X1              =   75
         X2              =   75
         Y1              =   0
         Y2              =   120
      End
      Begin VB.Shape Shape6 
         BorderColor     =   &H00808080&
         FillColor       =   &H00808080&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   1
         Left            =   0
         Top             =   0
         Width           =   90
      End
      Begin VB.Shape Shape6 
         BorderColor     =   &H00808080&
         FillColor       =   &H00808080&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   0
         Left            =   0
         Top             =   780
         Width           =   90
      End
      Begin VB.Shape Shape10 
         FillColor       =   &H00808080&
         FillStyle       =   0  'Solid
         Height          =   330
         Index           =   0
         Left            =   0
         Top             =   285
         Width           =   195
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   47
         Left            =   105
         Top             =   0
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   46
         Left            =   255
         Top             =   0
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   45
         Left            =   405
         Top             =   0
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   44
         Left            =   555
         Top             =   0
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   43
         Left            =   705
         Top             =   0
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   42
         Left            =   855
         Top             =   0
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   41
         Left            =   1005
         Top             =   0
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   40
         Left            =   1155
         Top             =   0
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   39
         Left            =   1305
         Top             =   0
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   38
         Left            =   1455
         Top             =   0
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   37
         Left            =   1605
         Top             =   0
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   24
         Left            =   1755
         Top             =   0
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   36
         Left            =   105
         Top             =   780
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   35
         Left            =   255
         Top             =   780
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   34
         Left            =   405
         Top             =   780
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   33
         Left            =   555
         Top             =   780
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   32
         Left            =   705
         Top             =   780
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   31
         Left            =   855
         Top             =   780
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   30
         Left            =   1005
         Top             =   780
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   29
         Left            =   1155
         Top             =   780
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   28
         Left            =   1305
         Top             =   780
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   27
         Left            =   1455
         Top             =   780
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   26
         Left            =   1605
         Top             =   780
         Width           =   135
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   105
         Index           =   25
         Left            =   1755
         Top             =   780
         Width           =   135
      End
      Begin VB.Shape Shape9 
         FillColor       =   &H00C0C0C0&
         FillStyle       =   0  'Solid
         Height          =   675
         Index           =   0
         Left            =   0
         Top             =   105
         Width           =   2010
      End
   End
   Begin VB.Label lblPins 
      BackStyle       =   0  'Transparent
      Height          =   195
      Left            =   3390
      TabIndex        =   12
      Top             =   105
      Width           =   255
   End
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      Caption         =   "Pins:"
      Height          =   195
      Left            =   2925
      TabIndex        =   11
      Top             =   105
      Width           =   525
   End
   Begin VB.Shape Shape13 
      FillStyle       =   0  'Solid
      Height          =   510
      Left            =   945
      Top             =   3075
      Width           =   135
   End
   Begin VB.Shape Shape12 
      FillStyle       =   0  'Solid
      Height          =   405
      Left            =   795
      Top             =   3510
      Width           =   285
   End
   Begin VB.Shape Shape11 
      FillStyle       =   0  'Solid
      Height          =   450
      Left            =   795
      Top             =   2745
      Width           =   285
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "X W V U T S R Q P O N M"
      Height          =   270
      Left            =   1140
      TabIndex        =   9
      Top             =   1935
      Width           =   2130
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "A B C D E  F G H I  J K  L"
      Height          =   210
      Left            =   1155
      TabIndex        =   8
      Top             =   4560
      Width           =   1980
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "0V"
      Height          =   195
      Left            =   165
      TabIndex        =   7
      Top             =   4320
      Width           =   180
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "+5V"
      Height          =   195
      Left            =   60
      TabIndex        =   6
      Top             =   2190
      Width           =   300
   End
   Begin VB.Shape shpVSS 
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   225
      Left            =   435
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape shpVDD 
      FillColor       =   &H000000FF&
      FillStyle       =   0  'Solid
      Height          =   225
      Left            =   435
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpUpper 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   11
      Left            =   2775
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpUpper 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   10
      Left            =   2625
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpUpper 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   9
      Left            =   2475
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpUpper 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   8
      Left            =   2325
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpUpper 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   7
      Left            =   2175
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpUpper 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   6
      Left            =   2025
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpUpper 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   5
      Left            =   1875
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpUpper 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   4
      Left            =   1725
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpUpper 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   3
      Left            =   1575
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpUpper 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   2
      Left            =   1425
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpUpper 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   1
      Left            =   1275
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpUpper 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   0
      Left            =   1125
      Shape           =   3  'Circle
      Top             =   2190
      Width           =   135
   End
   Begin VB.Shape shpLower 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   11
      Left            =   2775
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape shpLower 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   10
      Left            =   2625
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape shpLower 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   9
      Left            =   2475
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape shpLower 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   8
      Left            =   2325
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape shpLower 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   7
      Left            =   2175
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape shpLower 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   6
      Left            =   2025
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape shpLower 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   5
      Left            =   1875
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape shpLower 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   4
      Left            =   1725
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape shpLower 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   3
      Left            =   1575
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape shpLower 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   2
      Left            =   1425
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape shpLower 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   1
      Left            =   1275
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape shpLower 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   0
      Left            =   1125
      Shape           =   3  'Circle
      Top             =   4305
      Width           =   135
   End
   Begin VB.Shape Shape8 
      FillStyle       =   0  'Solid
      Height          =   270
      Left            =   270
      Shape           =   3  'Circle
      Top             =   3870
      Width           =   240
   End
   Begin VB.Shape Shape7 
      FillStyle       =   0  'Solid
      Height          =   120
      Left            =   495
      Top             =   3945
      Width           =   600
   End
   Begin VB.Shape shpBack 
      FillStyle       =   0  'Solid
      Height          =   1170
      Left            =   2910
      Top             =   2760
      Width           =   195
   End
   Begin VB.Shape Shape5 
      FillStyle       =   0  'Solid
      Height          =   165
      Index           =   1
      Left            =   1080
      Top             =   2610
      Width           =   2025
   End
   Begin VB.Shape Shape5 
      FillStyle       =   0  'Solid
      Height          =   165
      Index           =   0
      Left            =   1080
      Top             =   3930
      Width           =   2025
   End
   Begin VB.Shape Shape4 
      FillColor       =   &H00C0C0C0&
      FillStyle       =   0  'Solid
      Height          =   300
      Index           =   1
      Left            =   2430
      Shape           =   2  'Oval
      Top             =   3195
      Width           =   300
   End
   Begin VB.Shape Shape4 
      FillColor       =   &H00C0C0C0&
      FillStyle       =   0  'Solid
      Height          =   300
      Index           =   0
      Left            =   1305
      Shape           =   2  'Oval
      Top             =   3195
      Width           =   300
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   23
      Left            =   2760
      Top             =   2805
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   22
      Left            =   2610
      Top             =   2805
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   21
      Left            =   2460
      Top             =   2805
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   20
      Left            =   2310
      Top             =   2805
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   19
      Left            =   2160
      Top             =   2805
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   18
      Left            =   2010
      Top             =   2805
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   17
      Left            =   1860
      Top             =   2805
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   16
      Left            =   1710
      Top             =   2805
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   15
      Left            =   1560
      Top             =   2805
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   14
      Left            =   1410
      Top             =   2805
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   13
      Left            =   1260
      Top             =   2805
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   12
      Left            =   1110
      Top             =   2805
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   11
      Left            =   2760
      Top             =   3510
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   10
      Left            =   2610
      Top             =   3510
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   9
      Left            =   2460
      Top             =   3510
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   8
      Left            =   2310
      Top             =   3510
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   7
      Left            =   2160
      Top             =   3510
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   6
      Left            =   2010
      Top             =   3510
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   5
      Left            =   1860
      Top             =   3510
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   4
      Left            =   1710
      Top             =   3510
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   3
      Left            =   1560
      Top             =   3510
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   2
      Left            =   1410
      Top             =   3510
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   1
      Left            =   1260
      Top             =   3510
      Width           =   135
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   390
      Index           =   0
      Left            =   1110
      Top             =   3510
      Width           =   135
   End
   Begin VB.Shape Shape2 
      Height          =   315
      Left            =   1080
      Top             =   3195
      Width           =   1860
   End
   Begin VB.Shape Shape1 
      Height          =   1155
      Left            =   1080
      Top             =   2775
      Width           =   1845
   End
   Begin VB.Label lblDescription 
      BackStyle       =   0  'Transparent
      Height          =   405
      Left            =   990
      TabIndex        =   5
      Top             =   330
      Width           =   2715
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Description:"
      Height          =   195
      Left            =   105
      TabIndex        =   4
      Top             =   330
      Width           =   855
   End
   Begin VB.Label lblModel 
      BackStyle       =   0  'Transparent
      Height          =   225
      Left            =   990
      TabIndex        =   3
      Top             =   120
      Width           =   2715
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Model No.:"
      Height          =   195
      Left            =   180
      TabIndex        =   2
      Top             =   105
      Width           =   780
   End
End
Attribute VB_Name = "frmPowerConnections"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public mbCancel                                 As Integer

Private Const Module_Name                       As String = "frmPowerConnections"
Public Property Let Description(sDescription As String)
    
    lblDescription.Caption = sDescription
    
End Property

Public Property Let Model(sModel As String)

    lblModel.Caption = sModel
    
End Property

Public Property Let Pins(nPins As Integer)

    lblPins.Caption = Format$(nPins)
    
End Property


Public Sub SetPowerPins(nNumPins As Integer, nPos As Integer, nNeg As Integer)

    Dim bSkipPins(1)                    As Boolean
    Dim nSils                           As Integer
    Dim nControl                        As Integer
    Dim F                               As Integer
    Dim nZIFOffset                      As Integer
    Dim nDIPBankSize                    As Integer
    Dim X                               As Long
    Dim Y                               As Long
    Dim x1                              As Long
    Dim y1                              As Long
    
    Const PROC_NAME                     As String = "SetPowerPins"
    
    On Error GoTo ErrorHandler

    
    nSils = nNumPins / 2
    nZIFOffset = 12 - nSils
    
 
    ' First, position the IC logo over the ZIF
    X = ((12 - nSils) * 150) + 1010
    picIC.Left = X
    picIC.Width = shpBack.Left - picIC.Left
    
    ' Check if any of the DIP switches can be used to configure the power settings
    ' Check Positive
    Call ucDIP1.ResetDIPS
    
    nDIPBankSize = 3
    If gbOptions(7) Then
        nDIPBankSize = 7
    End If
    
    For F = 0 To nDIPBankSize
        If nNeg = (gnDIPS(F, 0) - nZIFOffset) And gnDIPS(F, 2) Then
            bSkipPins(0) = True
            Call ucDIP1.SetValue(F, True)
        End If
        If nPos = (gnDIPS(F, 0) - nZIFOffset) And gnDIPS(F, 1) Then
            bSkipPins(1) = True
            Call ucDIP1.SetValue(F, True)
        End If
    Next F
    If bSkipPins(0) = False And bSkipPins(1) = False Then
        ucDIP1.Flash = True
    Else
        ucDIP1.Flash = False
    End If
    

    If bSkipPins(0) = False Then
        X = shpVSS.Left + (shpVSS.Width / 2)
        Y = shpVSS.Top + (shpVSS.Height / 2)
        
        If nNeg > 1 And nNeg <= nSils Then
            ' Neg pin is on lower row
            ' So this is a standard type package
            
            X = shpVSS.Left + (shpVSS.Width / 2)
            Y = shpVSS.Top + (shpVSS.Height / 2)
            Line (X, Y)-(X, Y + 500), QBColor(10) ' green
            
            nControl = ((12 - nSils) + nNeg) - 1
            shpLower(nControl).FillColor = QBColor(10)
            x1 = shpLower(nControl).Left + (shpLower(nControl).Width / 2)
            
            Line (X, Y + 500)-(x1, Y + 500), QBColor(10)
            Line (x1, Y + 500)-(x1, Y), QBColor(10)
            
        Else
            ' Draw a line direct to the pin - crossing the ZIF
            nControl = 12 - (nNeg - nSils)
            x1 = shpUpper(nControl).Left + (shpUpper(nControl).Width / 2)
            y1 = shpUpper(nControl).Top + (shpUpper(nControl).Height / 2)
            Me.Line (X, Y)-(x1, y1), QBColor(10)
            shpUpper(nControl).FillColor = QBColor(10)
        
        End If
    End If
    
    If bSkipPins(1) = False Then
        X = shpVDD.Left + (shpVDD.Width / 2)
        Y = shpVDD.Top + (shpVDD.Height / 2)
        
        If nPos > nSils Then
            '
            ' Now Pos pin
            Me.Line (X, Y)-(X, Y - 500), QBColor(12) ' red
            
            nControl = 12 - (nPos - nSils)
            shpUpper(nControl).FillColor = QBColor(12)
            x1 = shpUpper(nControl).Left + (shpUpper(nControl).Width / 2)
            
            Me.Line (X, Y - 500)-(x1, Y - 500), QBColor(12)
            Me.Line (x1, Y - 500)-(x1, Y), QBColor(12)
        
        
        Else
            ' Draw a line direct to the pin - crossing the ZIF
            nControl = ((12 - nSils) + nPos) - 1
            x1 = shpLower(nControl).Left + (shpLower(nControl).Width / 2)
            y1 = shpLower(nControl).Top + (shpLower(nControl).Height / 2)
            Me.Line (X, Y)-(x1, y1), QBColor(12)
            shpLower(nControl).FillColor = QBColor(12)
        End If
    End If
        
    Exit Sub
    
ErrorHandler:
    ErrorRoutine Module_Name, PROC_NAME, Err
End Sub

Private Sub cmdCancel_Click()

    mbCancel = True
    Me.Hide
    
End Sub


Private Sub cmdOK_Click()

    mbCancel = False
    Me.Hide
    
End Sub


Private Sub Form_Load()
    
    Const PROC_NAME                     As String = "Form_Load"
    
    On Error GoTo ErrorHandler

    
    Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
    If gbOptions(6) Then
        ucDIP1.SetType CInt(gbOptions(4)), 4
    Else
        ucDIP1.SetType CInt(gbOptions(4)), 8
    End If
    ucDIP1.Left = Me.Width / 2 - ucDIP1.Width / 2
    mbCancel = True
    RecoverFormLoadPosition Me, True
    
    Exit Sub
    
ErrorHandler:
    ErrorRoutine Module_Name, PROC_NAME, Err
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "FormPositions", Me.Name, Format$(Me.Width) & "," & Format$(Me.Height) & "," & Format$(Me.Top) & "," & Format$(Me.Left)
    End If
    
End Sub


