ISProvider.TypeConcept

Example

Display the concept which specifies the provider's type.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aTypeConcept
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider  
set aProviders = Profile.LoadProvidersByFilter(aFilter)

aMessage = aMessage & vbNewLine &_
  "The number of the providers of the specified category is " &_
  aProviders.Count

for each aProvider in aProviders
  set aTypeConcept = aProvider.TypeConcept
  if aTypeConcept is nothing then 
    aMessage = aMessage & vbNewLine & "Type Not Defined"
  else
    aMessage = aMessage & vbNewLine & aProvider.FullName &_
      "'s type is " & aTypeConcept.Name
  end if   
next
 
Profile.MsgBox (aMessage)