Private Sub SettingupIBBMetaProvider()

   Dim oSession As IBBSessionContext

   Dim oServices As REServices

   Dim oMetaProvider As IBBMetaProvider

   

   Set oSession = REApplication.SessionContext

   

   Set oServices = New REServices

   oServices.Init oSession

       

   Set oMetaProvider = CreateObject(oServices.GetProgIDForMetaProvider(bbmoGIFT))

   oMetaProvider.Init oSession, bbmoGIFT_NOTEPAD

       

   MsgBox oMetaProvider.MetaObject.MetaObjectName, vbOKOnly Or vbInformation, oSession.MsgBoxCaption

       

   oMetaProvider.CloseDown

   Set oMetaProvider = Nothing

       

   oServices.CloseDown

   Set oServices = Nothing

   

   Set oSession = 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. Our Customer Support can help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality. If you are interested in learning more about the VBA and API modules, contact your account manager.