frmmain.frm

usb pci detection to usb port device

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "GeniusBus Test Interface"
   ClientHeight    =   8385
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11460
   LinkTopic       =   "Form1"
   ScaleHeight     =   559
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   764
   StartUpPosition =   3  'Windows Default
   Begin VB.CheckBox Check1 
      Caption         =   "Scan Continuous"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   9180
      TabIndex        =   167
      Top             =   6180
      Width           =   1995
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   11070
      Top             =   8430
   End
   Begin VB.CommandButton Command1 
      Caption         =   "I/O Test"
      Height          =   825
      Left            =   9600
      TabIndex        =   166
      Top             =   6900
      Width           =   1245
   End
   Begin VB.Frame Frame2 
      Caption         =   "GeniusBus Devices (Available devices with Device ID - Non Zero) - Click to view Device info"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1335
      Left            =   30
      TabIndex        =   100
      Top             =   4200
      Width           =   11415
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   31
         Left            =   10800
         TabIndex        =   163
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   30
         Left            =   10100
         TabIndex        =   161
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   29
         Left            =   9400
         TabIndex        =   159
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   28
         Left            =   8700
         TabIndex        =   157
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   27
         Left            =   8000
         TabIndex        =   155
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   26
         Left            =   7300
         TabIndex        =   153
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   25
         Left            =   6600
         TabIndex        =   151
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   24
         Left            =   5900
         TabIndex        =   149
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   23
         Left            =   5200
         TabIndex        =   147
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   22
         Left            =   4500
         TabIndex        =   145
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   21
         Left            =   3800
         TabIndex        =   143
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   20
         Left            =   3100
         TabIndex        =   141
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   19
         Left            =   2400
         TabIndex        =   139
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   18
         Left            =   1700
         TabIndex        =   137
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   17
         Left            =   1000
         TabIndex        =   135
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   16
         Left            =   270
         TabIndex        =   133
         Text            =   "0"
         Top             =   990
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   15
         Left            =   10800
         TabIndex        =   131
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   14
         Left            =   10100
         TabIndex        =   129
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   13
         Left            =   9400
         TabIndex        =   127
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   12
         Left            =   8700
         TabIndex        =   125
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   11
         Left            =   8000
         TabIndex        =   123
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   10
         Left            =   7300
         TabIndex        =   121
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   9
         Left            =   6600
         TabIndex        =   119
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   8
         Left            =   5900
         TabIndex        =   117
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   7
         Left            =   5200
         TabIndex        =   115
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   6
         Left            =   4500
         TabIndex        =   113
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   5
         Left            =   3800
         TabIndex        =   111
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   4
         Left            =   3100
         TabIndex        =   109
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   3
         Left            =   2400
         TabIndex        =   107
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   2
         Left            =   1700
         TabIndex        =   105
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   1
         Left            =   1000
         TabIndex        =   103
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.TextBox lblSBA 
         Height          =   315
         Index           =   0
         Left            =   300
         TabIndex        =   101
         Text            =   "0"
         Top             =   420
         Width           =   375
      End
      Begin VB.Label LabelSBA 
         Caption         =   "SBA 31"
         Height          =   225
         Index           =   31
         Left            =   10695
         TabIndex        =   164
         Top             =   750
         Width           =   585
      End
      Begin VB.Label LabelSBA 
         Caption         =   "SBA 30"
         Height          =   225
         Index           =   30
         Left            =   10005
         TabIndex        =   162
         Top             =   750
         Width           =   585
      End
      Begin VB.Label LabelSBA 
         Caption         =   "SBA 29"
         Height          =   225
         Index           =   29
         Left            =   9300
         TabIndex        =   160
         Top             =   750
         Width           =   585
      End
      Begin VB.Label LabelSBA 
         Caption         =   "SBA 28"