Public Class System_mdb
        Implements IDisposable

        ' für welche firma ist die aktuelle datenbank lizensiert
        Public Function GetCurrent_Pers_Company() As Integer

        ' liefert die Klasse Form_Size als MemoryStream
        Public Function Get_Form_Size(ByVal LfdNr_Pers As Integer, ByVal _
          Form_Name As String) As System.IO.MemoryStream

        ' cdatabase ist meine datenbankklasse
        Dim sys As New cDataBase.System_mdb
        m_Form_Size = sys.Windows.Get_Form_Size(cPers.LfdNr_Pers, Me.Name)
        m_LfdNr_PersCom = Sys.Liz.GetCurrent_Pers_Company()