Option Explicit
 
Private Sub Form_Load()
    ' Klasse laden
    Set xVB = New claVBerweiterung
End Sub
 
Private Sub Command1_Click()
 
    xVB.xSystem.Test
    xVB.EndAll
 
 
End Sub

Option Explicit
 
' Var. für Klasse anbinden
Public xVB As claVBerweiterung
    ' Var. für UnterKlasse anbinden
    Public cxSystem As claSystem

Option Explicit
 
' Aufruf: xVB.xSystem.Test
' Nur zum Test
Public Sub Test()
    MsgBox "test"
End Sub

Option Explicit
 
Public Sub Class_Initialize()
    ' Klasse laden
    Set cxSystem = New claSystem
End Sub
Public Sub Class_Terminate()
    ' Klasse entladen
    Set xVB = Nothing
End Sub
 
' Unterkategorie siehe: claSystem
Public Property Get xSystem() As claSystem
    Set xSystem = cxSystem
End Property
 
' Aufruf: xVB.EndAll
' Alle Form's entladen
Public Sub EndAll()
    Dim frm As Form
 
    For Each frm In VB.Forms
        Unload frm
        Set frm = Nothing
    Next frm
End Sub

*greetz*
Tim
.
http://www.DotNetWorld.de