Private uc_Set  as Artikel.uc_Settings
Public Function Init_Form() as boolean
    uc_Set = new Artikel.uc_Settings
    uc_Set.Init_Control()
    uc_Set.DockStyle = Fill
    pan_Control.Controls.Add(uc_Set)
    return true
End Function
 
Private Sub btn_Save_Click(Sender as object, e as eventargs)
    uc_Set.Save
    uc_Set.Dispose
    uc_Set = nothing
    pan_Control.Controls.Clear()
    me.dialogresult = ok
    me.close
end Sub
 
Private Sub btn_Cancel_Click(Sender as object, e as eventargs)
    uc_Set.Cancel
    uc_Set.Dispose
    uc_Set = nothing
    pan_Control.Controls.Clear()
 
    me.dialogresult = Cancel
    me.close
end Sub