imports System.Data
imports System.Runtime.InteropServices
imports Outlook = Microsoft.Office.Interop.Outlook
 
Public Class ThisAddin
    Private m_MyObject AS MyObjectClass
 
    Protected Overrides Function RequestComAddInAutomationServices() AS Object
        If m_MyObject Is Nothing Then m_MyObject = New MyObjectClass
        Return m_MyObject 
    End Function
 
    ...
End Class