convert to xtraform

app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb

@@ -72,6 +72,8 @@ Public Class ctrlApplicationAssignment
                 Logger.Error(ex)
                 Return False
             End Try
+        Else
+            Return True
         End If
     End Function
 
@@ -140,6 +142,8 @@ Public Class ctrlApplicationAssignment
                 Logger.Error(ex)
                 Return False
             End Try
+        Else
+            Return True
         End If
     End Function
 

app/DD_Clipboard_Searcher/frmAdministration.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmAdministration
-    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+    Inherits DigitalData.GUIs.Common.Base.BaseRibbonForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -1,4 +1,4 @@
-Imports DD_LIB_Standards
+Imports DigitalData.Modules.Database
 Public Class frmAdministration
     Private SelectedProcessName As String
 
@@ -15,6 +15,12 @@ Public Class frmAdministration
         End Function
     End Class
 
+    Public Sub New()
+        MyBase.New(LogConfig)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+    End Sub
+
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         ' Select first tab to prevent profile textbox from being empty
         XtraTabControl3.SelectedTabPageIndex = 0
@@ -82,6 +88,7 @@ Public Class frmAdministration
 
     Sub Save_Profile()
         Try
+            Throw New Exception("LOL")
             Me.TBCW_PROFILESBindingSource.EndEdit()
             If Not IsNothing(MyDataset.TBCW_PROFILES.GetChanges) Then
                 Me.CHANGEDWHOTextBox.Text = Environment.UserName
@@ -92,7 +99,8 @@ Public Class frmAdministration
                 Status_Changed("Keine Änderung")
             End If
         Catch ex As Exception
-            MsgBox("Unexpected Error in Save Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            ShowErrorMessage(ex)
+            'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
         End Try
     End Sub
 
@@ -626,8 +634,6 @@ Public Class frmAdministration
                 TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text)
                 Status_Changed("Daten-Suche gespeichert")
             End If
-        Catch ex As NoNullAllowedException
-            MsgBox("Ein oder mehrere Felder wurden nicht ausgefüllt:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, Text)
         Catch ex As Exception
             MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try

app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmControlCapture
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraEditors.XtraForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>
@@ -49,7 +49,7 @@ Partial Class frmControlCapture
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(383, 27)
         Me.Label3.TabIndex = 11
-        Me.Label3.Text = "Auswertung von aktivem Feld läuft!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.Label3.Text = "Auswertung läuft"
         '
         'btnOK
         '
@@ -123,9 +123,9 @@ Partial Class frmControlCapture
         Me.Label1.AutoSize = True
         Me.Label1.Location = New System.Drawing.Point(9, 168)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(298, 13)
+        Me.Label1.Size = New System.Drawing.Size(255, 13)
         Me.Label1.TabIndex = 15
-        Me.Label1.Text = "Markieren Sie Text in einem Feld und Kopieren Sie einen Text"
+        Me.Label1.Text = "Markieren und kopieren Sie einen Text in einem Feld"
         '
         'frmControlCapture
         '

app/DD_Clipboard_Searcher/frmControlCapture.vb

@@ -46,6 +46,10 @@ Public Class frmControlCapture
         AddHandler Watcher2.Changed, AddressOf Watcher_Changed
     End Sub
 
+    Private Sub frmControlCapture_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        RemoveHandler Watcher2.Changed, AddressOf Watcher_Changed
+    End Sub
+
     Private Sub Watcher_Changed(sender As Object, e As String)
         Try
             ' === CONTROL NAME ===

app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 Partial Class frmProcessCapture
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraEditors.XtraForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()> _