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.