Private Sub ApplySoftCredittoGift()

   Dim oGift As CGift

    Set oGift = New CGift
   oGift.Init REApplication.SessionContext
   'using system record id to load the gift
   oGift.Load 1644
   'Adding the soft credit
   With oGift.SoftCredits.Add
       'System Record ID of constituent that is receiving the soft credit
       .Fields(GIFTSOFTCREDIT_fld_ConstitId) = 744
       .Fields(GIFTSOFTCREDIT_fld_Amount) = oGift.Fields(GIFT_fld_Amount)
   End With
   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.