Larry

No problem. Here you go:

regards
paul


>>>>>>>>>>>>>>>>>>>>>>>>
Declarations

Type stringtype
stringfield As String * 40
End Type

Type reftype
ref_field(5) As String * 30
End Type

Type VerifyData
PremiseCount As Integer
MoreData As String * 1
Premtable(250) As String * 90

Global vb_status As stringtype
Global vb_premise As stringtype
Global vb_postcode As stringtype
Global vb_addr1 As stringtype
Global vb_addr2 As stringtype
Global vb_addr3 As stringtype
Global vb_addr4 As stringtype
Global vb_addr5 As stringtype
Global vb_addr6 As stringtype
Global vb_addr7 As stringtype
Global vb_addr8 As stringtype
Global vb_addr9 As stringtype
Global vb_barcode As stringtype
Global vb_matchkey As mkeytype
Global vb_name32 As stringtype
Global vb_dps As stringtype
Global vb_error As stringtype
Global vb_ref As reftype
Global vb_verify As VerifyData

Declare Sub RAPID Lib "cob4001.dll" (vb_status As stringtype, vb_premise As stringtype, vb_postcode As stringtype, vb_name32 As stringtype, vb_addr1 As stringtype, vb_addr2 As stringtype, vb_addr3 As stringtype, vb_addr4 As stringtype, vb_addr5 As stringtype, vb_addr6 As stringtype, vb_addr7 As stringtype, vb_addr8 As stringtype, vb_addr9 As stringtype, vb_barcode As stringtype, vb_matchkey As mkeytype, vb_dps As stringtype, vb_error As stringtype, vb_ref As reftype, vb_verify As VerifyData)




' Take input address from Address array

vb_name32.stringfield = Address(0).Text
vb_addr1.stringfield = Address(1).Text
vb_addr2.stringfield = Address(2).Text
vb_addr3.stringfield = Address(3).Text
vb_addr4.stringfield = Address(4).Text
vb_addr5.stringfield = Address(5).Text
vb_addr6.stringfield = Address(6).Text
vb_addr7.stringfield = Address(7).Text
vb_addr8.stringfield = Address(8).Text
vb_addr9.stringfield = Address(9).Text
vb_dps.stringfield = " "
vb_matchkey.mkeyfield = " "
vb_status.stringfield = "P" ' Call postcoding option

If mnuMKey.Checked = True Then ' If matchkey selected
Mid$(vb_status.stringfield, 2, 1) = "M"
If option_CCODE <> 0 Then
Mid$(vb_status.stringfield, 5) = "C"
End If
End If

If mnuDPS.Checked = True Then ' If matchkey selected
Mid$(vb_status.stringfield, 3, 1) = "D"
End If

Call RAPID(vb_status, vb_postcode, vb_premise, vb_name32, vb_addr1, vb_addr2, vb_addr3, vb_addr4, vb_addr5, vb_addr6, vb_addr7, vb_addr8, vb_addr9, vb_barcode, vb_matchkey, vb_dps, vb_error, vb_ref, vb_verify)

' Address results are stored in vb_addr array

Result(0).Text = vb_premise.stringfield
Result(1).Text = vb_addr1.stringfield
Result(2).Text = vb_addr2.stringfield
Result(3).Text = vb_addr3.stringfield
Result(4).Text = vb_addr4.stringfield
Result(5).Text = vb_addr5.stringfield
Result(6).Text = vb_addr6.stringfield
Result(7).Text = vb_addr7.stringfield
Result(8).Text = vb_addr8.stringfield
If mnuDPS.Checked = True Then ' checked
Result(9).Text = Left$(vb_dps.stringfield, 2)
Else
Result(9).Text = " "
End If
Result(10).Text = " "
If mnuMKey.Checked = True Then ' checked
If option_CCODE = 0 Then
Result(10).Text = Mid$(vb_matchkey.mkeyfield, 5)
Else
Result(10).Text = vb_matchkey.mkeyfield
End If
End If
>>>>>>>>>>>>>>>>>