Hi George,

I very much appreciate the help. I MUST get back to my VB course on ZDU. VB code follows:


Private Sub CMD_GRAPH_Click()
Dim ABC As HPA32N.DLLClass
Set ABC = HPA32N.DLLClass
Dim GSTR2 As String * 1040
GSTR2 = ABC.GRAPHPTS
Load FRM_LIST
FRM_LIST.LST_LIST.Clear
For I = 0 To 79
CYM$ = Mid$(GSTR2, I * 6 + 1, 6)
PRC$ = Mid$(GSTR2, I * 7 + 481, 7)
FRM_LIST.LST_LIST.AddItem CYM$ + PRC$
Next I
Set ABC = Nothing
FRM_LIST.Show
End Sub

Private Sub CMD_HPAINITIALIZE_Click()
Dim ISTR As String * 200
Dim ABC As HPA32N.DLLClass
Set ABC = HPA32N.DLLClass
ISTR = Space$(200)
ABC.HPAPATH = TXT_HPAPATH
ABC.PROFILE = TXT_PROFILE
ABC.Password = TXT_PASSWORD
'
ER$ = ABC.InitializeDLL
'
TXT_SETTINGS = ABC.SETTINGS
TXT_DBDATE = ABC.dbDate
TXT_ERRCODE1 = ER$
VERS$ = ABC.Version
Set ABC = Nothing
End Sub

Private Sub CMD_HPAVALUATION_Click()
Dim VSTR As String * 400
Dim ABC As HPA32N.DLLClass
Set ABC = HPA32N.DLLClass
VSTR = Space$(400)
'
ABC.HouseNumber = Left$(TXT_HSNUM + Space$(5), 5)
ABC.StreetName = Left$(TXT_STNAM + Space$(40), 40)
ABC.SFA = Left$(TXT_SFA + Space$(1), 1)
ABC.CountyFipsCode = Left$(TXT_DCTY + Space$(5), 5)
ABC.ZipCode = Left$(TXT_DZIP + Space$(5), 5)
ABC.ZipCode4 = Left$(TXT_ZIP4 + Space$(4), 4)
ABC.PurchaseDate = Left$(TXT_DT1 + Space$(6), 6)
ABC.EvaluationDate = Left$(TXT_DT2 + Space$(6), 6)
ABC.PurchasePrice = Left$(TXT_PRC1 + Space$(7), 7)
ABC.SETTINGS = Space$(14) 'Left$(TXT_SETTINGS + Space$(14), 14)
'
ER$ = ABC.Evaluate
'
TXT_HSNUM = ABC.HouseNumber
TXT_STNAM = ABC.StreetName
TXT_SFA = ABC.SFA
TXT_DCTY = ABC.CountyFipsCode
TXT_DZIP = ABC.ZipCode
TXT_ZIP4 = ABC.ZipCode4
TXT_DT1 = ABC.PurchaseDate
TXT_DT2 = ABC.EvaluationDate
TXT_PRC1 = ABC.PurchasePrice
TXT_PRC2 = ABC.EvaluationPrice
TXT_PRCQ = ABC.DistressedValue
TXT_SCORE = ABC.SCORE
TXT_INDEX = ABC.Index
TXT_USESLEFT = ABC.USESLEFT
TXT_CITY = ABC.CITY
TXT_COUNTY = ABC.COUNTY
TXT_ERRCODE2 = ER$
TXT_MEDP1 = ABC.MedianPrice1
TXT_MEDP2 = ABC.MedianPrice2
Set ABC = Nothing
End Sub

Private Sub CMD_PROPERTIES_Click()
Dim ABC As HPA32N.DLLClass
Set ABC = HPA32N.DLLClass
Dim PSTR As String * 2000
PSTR2 = ABC.Properties

Load FRM_LIST
FRM_LIST.LST_LIST.Clear
HDR$ = "....+...10....+...20....+...30....+...40....+...50....+...60....+...70....+...80....+...90....+..100"
FRM_LIST.LST_LIST.AddItem HDR$
For I = 0 To 9
OREC$ = Mid$(PSTR2, I * 100 + 1, 100)
FRM_LIST.LST_LIST.AddItem OREC$
Next I
FRM_LIST.Show
Set ABC = Nothing
End Sub