Public Class ThisAddIn
    Dim mainForm As FMTest
    Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Startup
        MsgBox("Startup works quite fine!", MsgBoxStyle.Exclamation, "Erfolg:")
        Me.mainForm = New FMTest
        Me.mainForm.Show()
    End Sub
 
    Private Sub ThisAddIn_Shutdown(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Shutdown
        MsgBox("Shutdown!", MsgBoxStyle.Exclamation, "Erfolg:")
    End Sub
End Class

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten