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
  
  oForm.CloseDown
   Set oForm = Nothing
  
   oGift.CloseDown
   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.