Public Class frmUpdate

    Dim ma As String
    Dim dt As DataTable

    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

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

    End Sub
    Sub New(ByVal Mitarbeiter As String, ByVal dt As DataTable)
        InitializeComponent()
        Me.ma = Mitarbeiter
        Me.dt = dt
    End Sub


    Private Sub frmUpdate_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.txtMitarbeiter.Text = ma
        For Each r In dt.Rows
            Dim s As String
            If r.item(4) = 1 Then
                s = Str(r.item(2)) + " - " + r.item(3)
                clb.Items.Add(s, True)
            Else
                s = r.item(2) + " - " + r.item(3)
                clb.Items.Add(s, False)
            End If
        Next
    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Me.DialogResult = Windows.Forms.DialogResult.Abort
        Me.Close()

    End Sub

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