Public Class FrmDefinition_Pruefplan

    Dim m_aktiv As Boolean
    Property Aktiv As Boolean
        Get
            Return m_aktiv
        End Get
        Set(value As Boolean)
            m_aktiv = value
        End Set
    End Property

    Dim m_gueltig_bis As DateTime
    Property Gueltig_Bis As DateTime
        Get
            Return m_gueltig_bis
        End Get
        Set(value As DateTime)
            m_gueltig_bis = value
        End Set
    End Property
    Private Sub FrmDefinition_Pruefplan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.dtGueltigBis.Value = Me.Gueltig_Bis
        Me.cbAktiv.Checked = Me.Aktiv = True
    End Sub

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        Me.Gueltig_Bis = Me.dtGueltigBis.Value
        Me.Aktiv = Me.cbAktiv.Checked
        Me.Close()
    End Sub
End Class