ConneXionFindProspect Method

public ConneXionResult FindProspect(
	ref Prospect Prospect
)

Public Function FindProspect ( 
	ByRef Prospect As Prospect
) As ConneXionResult

Dim oProspect As New ConneXion.Prospect
Dim oConneXion As New ConneXion.ConneXion
Dim oResult As ConneXion.ConneXionResult

oProspect.LicenseKey = "1234567  1"
oProspect.ProspectID = "BROWMI2"
oProspect.TAMUserName = "EXEC"
oProspect.TAMPassword = "PSWD"
oProspect.TAMCentralAgency = "DEMOAG1"

oResult = oConneXion.FindProspect(oProspect)
If oResult.Success Then
    MessageBox.Show("Find Prospect is successful")
    txtID.Text = oProspect.ProspectID
    txtResult.Text = oResult.Description
Else
    txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " &
        oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
End If