Sto impazzendo
qualcuno sa dirmi cosa manca a questo codice per funzionare prima che mi pigli un esaurimento

Imports Microsoft.Office.Core
imports Extensibility
imports System.Runtime.InteropServices
Imports Microsoft.Office.Interop
Imports Microsoft.VisualBasic.Compatibility

<GuidAttribute("741F301D-34B6-4E25-B4D4-D74895048B46"), ProgIdAttribute("MyAddin1.Connect")> _
Public Class Connect

Implements Extensibility.IDTExtensibility2

Dim applicationObject as Object
dim addInInstance as object

Friend WithEvents CommandBar As CommandBars
Friend WithEvents CommandBarButton1 As CommandBarButton

Public Sub OnBeginShutdown(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnBeginShutdown
End Sub

Public Sub OnAddInsUpdate(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnAddInsUpdate
End Sub

Public Sub OnStartupComplete(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnStartupComplete
Dim oCommandBar As CommandBar
Dim oCommandBarPopup As CommandBarPopup
Dim oCommandBarButton1 As CommandBarButton
Dim myPicture As stdole.IPictureDisp

oCommandBar = applicationObject.ActiveExplorer.CommandBars.Add(" Newsletter Command Bar", MsoBarPosition.msoBarTop, False, True)
oCommandBar.Visible = True
'oCommandBar = oApp.ActiveExplorer.CommandBars("Standard")
oCommandBarPopup = oCommandBar.Controls.Add(MsoControlType.msoControl Popup, 1, "", 1, True)
oCommandBarPopup.Visible = True
oCommandBarPopup.Caption = "Newsletter"
oCommandBarButton1 = oCommandBarPopup.Controls.Add(MsoControlType.msoCo ntrolButton, 1, "", 1, True)
oCommandBarButton1.Visible = True
oCommandBarButton1.Caption = "New..."

myPicture = VB6.Support.ImageToIPictureDisp(System.Drawing.Ima ge.FromFile("C:\Documents and Settings\odev\Documenti\Visual Studio Projects\OutlookTest\MyAddin1\NEW.BMP"))
oCommandBarButton1.Style = MsoButtonStyle.msoButtonIconAndCaption
oCommandBarButton1.Picture = myPicture

CommandBarButton1 = oCommandBarButton1
End Sub

Public Sub OnDisconnection(ByVal RemoveMode As Extensibility.ext_DisconnectMode, ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnDisconnection
End Sub

Public Sub OnConnection(ByVal application As Object, ByVal connectMode As Extensibility.ext_ConnectMode, ByVal addInInst As Object, ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnConnection
applicationObject = CType(application, Outlook.Application)
addInInstance = addInInst
End Sub
Private Sub oCommandBar_OnUpdate()
MsgBox("oCommandBar_OnUpdate")
End Sub
Private Sub CommandBarButton1_Click(ByVal Ctrl As CommandBarButton, ByVal CancelDefault As Boolean)
MsgBox("CommandBarButton1_Click")
End Sub
End Class