VERSION 5.00
Begin VB.Form frmTraceKey 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Trace Key"
   ClientHeight    =   1380
   ClientLeft      =   6390
   ClientTop       =   5325
   ClientWidth     =   1560
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmTraceKey.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1380
   ScaleWidth      =   1560
   StartUpPosition =   1  'CenterOwner
   Begin VB.Label lblColor 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "GND Reference"
      Height          =   270
      Index           =   14
      Left            =   15
      TabIndex        =   3
      Top             =   990
      Width           =   1530
   End
   Begin VB.Label lblColor 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Expected Value"
      Height          =   270
      Index           =   13
      Left            =   15
      TabIndex        =   2
      Top             =   675
      Width           =   1530
   End
   Begin VB.Label lblColor 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Output Pin"
      Height          =   270
      Index           =   12
      Left            =   15
      TabIndex        =   1
      Top             =   360
      Width           =   1530
   End
   Begin VB.Label lblColor 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Input Pin"
      Height          =   270
      Index           =   10
      Left            =   15
      TabIndex        =   0
      Top             =   45
      Width           =   1530
   End
End
Attribute VB_Name = "frmTraceKey"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Label5_Click()

End Sub


Private Sub Form_Load()

    Dim F                           As Integer
    
    
    On Error Resume Next
    
    For F = 0 To UBound(glColors)
        lblColor(F).BackColor = glColors(F)
    Next F
    
    RecoverFormLoadPosition Me, True
    Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
    
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
    
    frmMDIMain.Toolbar1.Buttons("KEY").Value = tbrUnpressed
    
End Sub


