Public Sub OnBeginShutdown(ByRef custom As System.Array) Implements _
      Extensibility.IDTExtensibility2.OnBeginShutdown
        On Error Resume Next   
        MyButton.Delete()
        MyButton= Nothing        
    End Sub

   Public Sub OnDisconnection(ByVal RemoveMode As _
     Extensibility.ext_DisconnectMode, ByRef custom As System.Array) Implements _
     Extensibility.IDTExtensibility2.OnDisconnection
        On Error Resume Next
        MyButton.Delete()
        MyButton = Nothing
        If RemoveMode <> _
          Extensibility.ext_DisconnectMode.ext_dm_HostShutdown Then _
        Call OnBeginShutdown(custom)
        applicationObject = Nothing
    End Sub