VERSION 5.00
Begin VB.Form BaseAddress 
   Caption         =   "Base Address"
   ClientHeight    =   3090
   ClientLeft      =   6630
   ClientTop       =   3195
   ClientWidth     =   4335
   LinkTopic       =   "Form2"
   ScaleHeight     =   3090
   ScaleWidth      =   4335
   Begin VB.CommandButton OK 
      Caption         =   "OK"
      Height          =   375
      Left            =   480
      TabIndex        =   3
      Top             =   2400
      Width           =   1335
   End
   Begin VB.CommandButton Cancel 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   2400
      TabIndex        =   2
      Top             =   2400
      Width           =   1335
   End
   Begin VB.TextBox AddressText 
      Height          =   375
      Left            =   1680
      TabIndex        =   0
      Text            =   "300"
      Top             =   840
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "Please Enter the Base Address of the card"
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   1560
      Width           =   2415
   End
End
Attribute VB_Name = "BaseAddress"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub Cancel_Click()
    address = -1
    
    Unload Me
End Sub

Private Sub OK_Click()
    address = "&H" + AddressText.Text
    
    Unload Me
End Sub