Public Sub OpenConstit()

   Dim oConstit As CRecord
   Dim oConForm As CConstituentForm
  
   Set oConstit = New CRecord
   oConstit.Init REApplication.SessionContext
   oConstit.Load 676
  
   Set oConForm = New CConstituentForm
   oConForm.Init REApplication.SessionContext
  
   Set oConForm.ConstituentObject = oConstit
  
   oConForm.ShowForm
      
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.