Nu är jag förbannad. jag har planerat upp en perfekt struktur(inräknat  händelser i moduler) och så tillåts inte events i moduler. Vilket jävla fjanteri. Allt arbete, får tänka om på nytt. Det lättaste är att använda sig av Sub Main.Withevent i Moduler...
    
    
Fan.
/FransSv: Withevent i Moduler...
    
    
'Module: Module1 -------------------
    Option Explicit
    
    Private mApplication As Class1
    
    Public Property Get Application() As Class1
        Set Application = mApplication
    End Property
    
    Public Sub Main()
        Set mApplication = New Class1
    End Sub
'Class: Class1 -------------------
    Option Explicit
    
    Private Sub Class_Initialize()
        MsgBox "Applikationen har startats!"
        Form1.Show
    End Sub
    
    Private Sub Class_Terminate()
        MsgBox "Applikationen har avslutats!"
    End Sub
Ange Sub Main som Startup Object i projekt egenskaperna.
Om du skapar en ActivX DLL eller ActiveX EXe kan du skapa en Applikations klass vilket du sätter till Instancing = 6 - GlobalMultiUse. Skapas automatiskt en instans när klassen användas.