Public Class usrcntlLeistungen
    Public LEISTUNGS_NR As Integer
    Public LEISTUNGS_IdDispo As Integer
    Public LEISTUNGS_BEZ As String
    Public Steuerpflichtig As Boolean = False

    Sub New()
        InitializeComponent()
    End Sub
    Sub New(nr, bez, steuer, id)
        InitializeComponent()
        LEISTUNGS_NR = nr
        LEISTUNGS_BEZ = bez
        Steuerpflichtig = steuer
        LEISTUNGS_IdDispo = id
    End Sub

    Private Sub usrcntlLeistungen_Load(sender As Object, e As EventArgs) Handles Me.Load
        lblLeistungsNr.Text = LEISTUNGS_NR
        If lblLeistung.Text = "" Then lblLeistung.Text = LEISTUNGS_BEZ
    End Sub
End Class