ConneXionCreateProspectID Method

public ConneXionResult CreateProspectID(
	ref Prospect Prospect
)

Public Function CreateProspectID ( 
	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.Name = "Joseph W. Abbot"
oProspect.TAMUserName = "EXEC"
oProspect.TAMPassword = "PSWD"
oProspect.TAMCentralAgency = "DEMOAG1"

oResult = oConneXion.CreateProspectID(oProspect)
If oResult.Success Then
    MessageBox.Show("CreateProspectID was 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