Public Sub AddGiftUsingForm()

  Dim oGift As CGift
   Set oGift = New CGift
   oGift.Init REApplication.SessionContext
   'Set the constituent based on the constituent system record ID - CRecord.Fields (RECORDS_fld_ID)
   oGift.Fields(GIFT_fld_Constit_ID) = 280
   Dim oForm As CGiftForm
   Set oForm = New CGiftForm
   oForm.Init REApplication.SessionContext
   Set oForm.GiftObject = oGift
   oForm.ShowForm True, , False
   Set oForm = Nothing
   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.