Public Class frmApplikationNeu Sub New(ByRef kategorien As DataTable, ByRef Tree As TreeView) Me.cbboxKategorie.DataSource = kategorien Me.cbboxKategorie.DisplayMember = "Bezeichnung" Me.cbboxKategorie.ValueMember = "Kategorienr" 'Me.cbboxParentTree.TreeView.Nodes End Sub Private Sub cbboxKategorie_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbboxKategorie.SelectedIndexChanged End Sub Private Sub lblKategorie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblKategorie.Click End Sub End Class