Public Sub StaticTables()
   Dim oServ As REServices
   Set oServ = New REServices
   oServ.Init REApplication.SessionContext
  
   Dim oCTS As CCodeTablesServer
   Set oCTS = oServ.CreateServiceObject(bbsoCodeTablesServer)
   oCTS.Init REApplication.SessionContext
  
   'Display the Static table description and ID for installment frequencies
   Debug.Print oCTS.StaticTableTranslation(staticnumInstallmentFrequencies, 1)
   Debug.Print oCTS.StaticGetItemID(staticnumInstallmentFrequencies, "Annually")
   oServ.CloseDown
   Set oServ = Nothing
  
   oCTS.CloseDown
   Set oCTS = 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.