Private Sub AddTributeGift()

   Dim oGift As CGift
   Set oGift = New CGift
   oGift.Init REApplication.SessionContext

   'load gift by system record ID
   oGift.Load 1801

   With oGift
        'add a tribute to this gift
       .Tributes.Add.Fields(GIFTTRIBUTE_fld_Tribute_Id) = 3
       'print the tribute name
       Debug.Print .Fields(GIFT_fld_HonMemNames)
   End With
   'clean up
   Set oGift = 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.