Public Class frmKopien
    Dim Produktnr As Integer = 0
    Dim parent As Form
    Dim produktcopy As New DataTable
    Dim pc As New TKB.VV.Lifecycle.clsProduktCopy
    Sub New()
        InitializeComponent()
    End Sub

    Sub New(ByVal Origianl As Integer, ByVal Titel As String, parentform As Form)
        InitializeComponent()
        Me.Text = Me.Text + " " + Titel
        parent = parentform
        Me.Produktnr = Origianl
    End Sub

    Private Sub frmKopien_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        produktcopy = pc.Get_Copies(Produktnr)
        Me.C1Result.DataSource = produktcopy
        Me.C1Result.DataMember = produktcopy.TableName
        Me.C1Result.Splits(0).DisplayColumns(0).Width = 0
        Me.C1Result.Splits(0).DisplayColumns(1).Width = 0
        Me.C1Result.Splits(0).DisplayColumns(2).Width = Me.C1Result.Width - 50
    End Sub

    Private Sub C1Result_DoubleClick(sender As Object, e As EventArgs) Handles C1Result.DoubleClick
        Try
            Dim F As New frmLifeCycle(Me.C1Result.Columns(0).Value)
            F.MdiParent = parent
            F.Show()
        Catch
        End Try

    End Sub

    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub
End Class