Public Class frmThemaPerson

    Dim p As New db.Person
    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Dim d As New DataTable
        d = p.Get_Aktive_Personen()
        Me.cbboxperson.DataSource = d
        Me.cbboxperson.ValueMember = "ID"
        Me.cbboxperson.DisplayMember = "Name"

        d = p.Get_Aktive_Funktionen
        Me.cbboxfunktion.DataSource = d
        Me.cbboxfunktion.ValueMember = "ID"
        Me.cbboxfunktion.DisplayMember = "Bezeichnung"

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Private Sub frmThemaPerson_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub

    Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub
End Class