ConneXionFindProducer Method

public ConneXionResult FindProducer(
	ref Producer oProducer
)

Public Function FindProducer ( 
	ByRef oProducer As Producer
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oResult As New ConneXion.ConneXionResult
Dim oProducer As New ConneXion.Producer
oProducer.TAMUserName = "EXEC"
oProducer.TAMPassword = "PSWD"
oProducer.TAMCentralAgency = "DEMOAG1"
oProducer.LicenseKey = "1234567  1"
oProducer.EntityID = "CJH"
oResult = oConneXion.FindProducer(oProducer)
If oResult.Success = False Then
  MessageBox.Show("FindProducer is false")
Else
  MessageBox.Show("FindProducer is successful")
End If