EALA FREYA FRESENA

Option Explicit
 
' Öffentliche Objekte
Public vbPrinter As Printer
Public vbPrinters As New Collection
 
Private Sub UserControl_Initialize()
  ' Printer-Objekt
  Set vbPrinter = Printer
 
  ' vbPrinters-Collection füllen
  Dim oPrinter As Printer
  For Each oPrinter In Printers
    vbPrinters.Add oPrinter
  Next
End Sub
 
Private Sub UserControl_Terminate()
     ' Objekte zerstören
  Set vbPrinter = Nothing
  Set vbPrinters = Nothing
End Sub

Private p As MyClass
 
Sub test()
     Set p = CreateObject("MyPrinter.MyClass")
 
 
     MsgBox p.vbPrinters.Count
End Sub