Dim _BaseFrm As  frmAnzeige 'angenommener Klassenname der Instanz: anzeige
 
    Public Property BaseFrm As frmAnzeige
        Set(ByVal value As frmAnzeige)
            _BaseFrm = value
        End Set
        Get
            Return _BaseFrm
        End Get
    End Property