Create a VB 6 ActiveX DLL and place the below code in the Class Module.  Add a reference to the Blackbaud Raisers Edge 7 Objects:

Implements IBBPlugIn
Private moSess As IBBSessionContext
Private Property Get IBBPlugIn_DocumentName() As String
End Property
Private Property Get IBBPlugIn_DocumentType() As BBREAPI7.REShellDocumentTypes
End Property
Private Property Get IBBPlugIn_HeaderCaption() As String
  IBBPlugIn_HeaderCaption = "Test" ' <<Change this<<
End Property

Private Property Get IBBPlugIn_HeaderImage() As String

End Property

Private Sub IBBPlugIn_OnClosedown()
   If Not moSess Is Nothing Then
       Set moSess = Nothing
   End If
End Sub

Private Sub IBBPlugIn_OnInit(oREHost As BBREAPI7.IBBShellHost)
   Set moSess = oREHost.SessionContext
End Sub

Private Sub IBBPlugIn_OnLoad(oDoc As Object)
   'Place code here that you want to run when the link for the plug-in is clicked
   MsgBox "Add code to run your user interface."
End Sub

Private Sub IBBPlugIn_OnQueryUnload(bCancel As Boolean, ByVal bShellIsUnloading As Boolean)

End Sub

Private Function IBBPlugIn_PluginDescription() As String
   IBBPlugIn_PluginDescription = "Test" ' <<Change this<<
End Function

Private Function IBBPlugIn_PluginName() As String
   IBBPlugIn_PluginName = "Test" ' <<Change this<<
End Function


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.