ConneXionFindAllLookups Method

public ConneXionResult FindAllLookups(
	Lookup Lookup,
	ref Lookup[] Lookups
)

Public Function FindAllLookups ( 
	Lookup As Lookup,
	ByRef Lookups As Lookup()
) As ConneXionResult

Private Sub btnFindAllLookups_Click(sender As Object, e As EventArgs) Handles btnFindAllLookups.Click
  Dim oConneXionLookup As New ConneXion.ConneXion
  Dim oLookup As New ConneXion.Lookup
  Dim oResult As ConneXion.ConneXionResult
  Dim oLookups() As ConneXion.Lookup
  oLookup.TAMUserName = "EXEC"
  oLookup.TAMPassword = "PSWD"
  oLookup.LicenseKey = "1234567  1"
  oLookup.TAMCentralAgency = "DEMOAG1"
  oLookup.LookupType = "Employee"
  oResult = oConneXionLookup.FindAllLookups(oLookup, oLookups)
  If oResult.Success = True Then
    MessageBox.Show("FindAllLookups for " & oLookup.LookupType & " was successful.  " & oResult.Description & ".")
  Else
    txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Description: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
  End If
End Sub