Public Function Init_Control()
    ' hier lädst Du die daten, die das Control benötigt (Einstellungen)
End Function
 
Public Function Save()
    ' hier werden die Einstellungen gespeichert
End Function
 
Public Function Cancel()
    ' hier werden "abbrucharbeiten" erledigt (objekte freigeben, zugriffe auf 
    ' dateien geschlossen, etc.
End Function

Private uc_Set  as uc_Settings
Public Function Init_Form() as boolean
    uc_Set = new 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

Private Sub btn_Open(Sender as Object, e as Eventargs)
    Dim frm as new frmAddEdit
 
    if frm.Init_Form() andalso _
       frm.Showdialog() = ok then
        ' es wurde gespeichert
    End if
End Sub

Try
    ' arbeiten
    return true
catch ex as Excetion
    Messagebox.show(ex.message)
    return false
End Try