Public Sub LoopAllAttributes()

   Dim oAT As CAttributeType
   Dim oATs As CAttributeTypes
   Set oATs = New CAttributeTypes

   oATs.Init REApplication.SessionContext, bbAttributeRecordType_CONSTITUENT

   For Each oAT In oATs
       Debug.Print oAT.Fields(atfDESCRIPTION)
   Next oAT 

   oATs.CloseDown
   Set oATs = Nothing
   Set oAT = Nothing

End Sub

Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Blackbaud Customer Support may help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality.