Public Class clsNativeDok
    Dim m_connectionstring As String
    Public Property Connectionstring() As String
        Get
            Return m_connectionstring
        End Get
        Set(ByVal value As String)
            m_connectionstring = value
        End Set
    End Property

    Dim m_manr As Integer
    Public Property Mitarbeiternr() As Integer
        Get
            Return m_manr
        End Get
        Set(ByVal value As Integer)
            m_manr = value
        End Set
    End Property

    Dim m_parentform As Windows.Forms.Form
    Public Property Parentform() As Windows.Forms.Form
        Get
            Return m_parentform
        End Get
        Set(ByVal value As Windows.Forms.Form)
            m_parentform = value
        End Set
    End Property
    Public Sub Show_DokSelect()
        Dim f As New frmDokSelect(Me.Connectionstring)
        f.MdiParent = Parentform
        f.Show()
    End Sub

    Public Sub Show_Dokvorlagen()
        Dim f As New frmDokManager(Me.Connectionstring)
        f.MdiParent = Parentform
        f.Show()
    End Sub

End Class