MS_18052016

app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.vb

@@ -33,8 +33,8 @@
 
     Private Sub btnEmailTest_Click(sender As Object, e As EventArgs) Handles btnEmailTest.Click
         If txttestReceipiant.Text <> "" Then
-            If ClassEmail.Send_EMail(txttestReceipiant.Text, "Test Email Reminder", "Default-Bodytext: will be replaced with profile-bosytext.", EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, EMAIL_PWTextBox.Text, EMAIL_FROMTextBox.Text, PORTTextBox.Text) = True Then
+            If ClassEmail.Send_EMail(txttestReceipiant.Text, "Test Email Reminder", "Default-Bodytext: will be replaced with profile-bodytext.", EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, EMAIL_PWTextBox.Text, EMAIL_FROMTextBox.Text, PORTTextBox.Text) = True Then
-                MsgBox("Testmail was send successfully!", MsgBoxStyle.Information, "Erfolgsmeldung:")
+                MsgBox("Testmail was send successfully!", MsgBoxStyle.Information)
             End If
         End If
     End Sub

app/DD-Record-Organiser/frmFollowUp.Designer.vb

@@ -58,9 +58,7 @@ Partial Class frmFollowUp
         Me.cmbConstructor = New System.Windows.Forms.ComboBox()
         Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
-        Me.ListBoxUser2Profile = New System.Windows.Forms.ListBox()
         Me.Label5 = New System.Windows.Forms.Label()
-        Me.cmbUser = New System.Windows.Forms.ComboBox()
         Me.btnAddUser_WV = New System.Windows.Forms.Button()
         Me.btndelete = New System.Windows.Forms.Button()
         Me.FOLLOW_UP_DAYSTextBox = New System.Windows.Forms.TextBox()
@@ -123,6 +121,21 @@ Partial Class frmFollowUp
         Me.TBPMO_FOLLOW_UP_EMAILTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FOLLOW_UP_EMAILTableAdapter()
         Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
         Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter()
+        Me.GridControlUsers2Group = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewlUsers2Group = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colID = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
+        Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
+        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.GridColumn6 = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.TBWH_Users1BindingSource = New System.Windows.Forms.BindingSource(Me.components)
         GUIDLabel = New System.Windows.Forms.Label()
         FOLLOW_UP_SEQUENCELabel = New System.Windows.Forms.Label()
         FOLLOW_UP_TIME_SPANLabel = New System.Windows.Forms.Label()
@@ -162,6 +175,13 @@ Partial Class frmFollowUp
         Me.XtraTabPage3.SuspendLayout()
         CType(Me.GridResult, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.grvwResult, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridControlUsers2Group, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewlUsers2Group, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'GUIDLabel
@@ -413,41 +433,25 @@ Partial Class frmFollowUp
         '
         'GroupBox3
         '
-        Me.GroupBox3.Controls.Add(Me.ListBoxUser2Profile)
+        resources.ApplyResources(Me.GroupBox3, "GroupBox3")
+        Me.GroupBox3.Controls.Add(Me.GridControl1)
+        Me.GroupBox3.Controls.Add(Me.GridControlUsers2Group)
         Me.GroupBox3.Controls.Add(Me.Label5)
-        Me.GroupBox3.Controls.Add(Me.cmbUser)
         Me.GroupBox3.Controls.Add(Me.btnAddUser_WV)
         Me.GroupBox3.Controls.Add(Me.btndelete)
-        resources.ApplyResources(Me.GroupBox3, "GroupBox3")
         Me.GroupBox3.Name = "GroupBox3"
         Me.GroupBox3.TabStop = False
         '
-        'ListBoxUser2Profile
-        '
-        resources.ApplyResources(Me.ListBoxUser2Profile, "ListBoxUser2Profile")
-        Me.ListBoxUser2Profile.FormattingEnabled = True
-        Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile"
-        Me.ListBoxUser2Profile.TabStop = False
-        '
         'Label5
         '
         resources.ApplyResources(Me.Label5, "Label5")
         Me.Label5.Name = "Label5"
         '
-        'cmbUser
-        '
-        Me.cmbUser.DisplayMember = "FORM_TITLE"
-        resources.ApplyResources(Me.cmbUser, "cmbUser")
-        Me.cmbUser.FormattingEnabled = True
-        Me.cmbUser.Name = "cmbUser"
-        Me.cmbUser.TabStop = False
-        Me.cmbUser.ValueMember = "GUID"
-        '
         'btnAddUser_WV
         '
         Me.btnAddUser_WV.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer))
         resources.ApplyResources(Me.btnAddUser_WV, "btnAddUser_WV")
-        Me.btnAddUser_WV.Image = Global.DD_Record_Organiser.My.Resources.Resources.add
+        Me.btnAddUser_WV.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_left
         Me.btnAddUser_WV.Name = "btnAddUser_WV"
         Me.btnAddUser_WV.TabStop = False
         Me.btnAddUser_WV.UseVisualStyleBackColor = False
@@ -901,6 +905,125 @@ Partial Class frmFollowUp
         '
         Me.TBPMO_FORM_CONSTRUCTORTableAdapter.ClearBeforeFill = True
         '
+        'GridControlUsers2Group
+        '
+        resources.ApplyResources(Me.GridControlUsers2Group, "GridControlUsers2Group")
+        Me.GridControlUsers2Group.DataSource = Me.TBAD_UsersBindingSource
+        Me.GridControlUsers2Group.MainView = Me.GridViewlUsers2Group
+        Me.GridControlUsers2Group.Name = "GridControlUsers2Group"
+        Me.GridControlUsers2Group.ShowOnlyPredefinedDetails = True
+        Me.GridControlUsers2Group.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewlUsers2Group})
+        '
+        'GridViewlUsers2Group
+        '
+        Me.GridViewlUsers2Group.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewlUsers2Group.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewlUsers2Group.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewlUsers2Group.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewlUsers2Group.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
+        Me.GridViewlUsers2Group.Appearance.FocusedRow.Options.UseBackColor = True
+        Me.GridViewlUsers2Group.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.GridColumn1, Me.GridColumn2, Me.colID})
+        Me.GridViewlUsers2Group.GridControl = Me.GridControlUsers2Group
+        Me.GridViewlUsers2Group.Name = "GridViewlUsers2Group"
+        Me.GridViewlUsers2Group.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewlUsers2Group.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewlUsers2Group.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
+        Me.GridViewlUsers2Group.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewlUsers2Group.OptionsView.ColumnAutoWidth = False
+        Me.GridViewlUsers2Group.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewlUsers2Group.OptionsView.ShowAutoFilterRow = True
+        Me.GridViewlUsers2Group.OptionsView.ShowGroupPanel = False
+        '
+        'colSelect
+        '
+        resources.ApplyResources(Me.colSelect, "colSelect")
+        Me.colSelect.FieldName = "Select"
+        Me.colSelect.Name = "colSelect"
+        '
+        'GridColumn1
+        '
+        Me.GridColumn1.FieldName = "Username"
+        Me.GridColumn1.Name = "GridColumn1"
+        Me.GridColumn1.OptionsColumn.AllowEdit = False
+        resources.ApplyResources(Me.GridColumn1, "GridColumn1")
+        '
+        'GridColumn2
+        '
+        Me.GridColumn2.FieldName = "Email"
+        Me.GridColumn2.Name = "GridColumn2"
+        Me.GridColumn2.OptionsColumn.AllowEdit = False
+        resources.ApplyResources(Me.GridColumn2, "GridColumn2")
+        '
+        'colID
+        '
+        Me.colID.FieldName = "ID"
+        Me.colID.Name = "colID"
+        '
+        'DD_ECMAdmin
+        '
+        Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
+        Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'TBAD_UsersBindingSource
+        '
+        Me.TBAD_UsersBindingSource.DataMember = "TBAD_Users"
+        Me.TBAD_UsersBindingSource.DataSource = Me.DD_ECMAdmin
+        '
+        'GridControl1
+        '
+        resources.ApplyResources(Me.GridControl1, "GridControl1")
+        Me.GridControl1.DataSource = Me.TBWH_Users1BindingSource
+        Me.GridControl1.MainView = Me.GridView1
+        Me.GridControl1.Name = "GridControl1"
+        Me.GridControl1.ShowOnlyPredefinedDetails = True
+        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
+        '
+        'GridView1
+        '
+        Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
+        Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
+        Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn3, Me.GridColumn4, Me.GridColumn5, Me.GridColumn6})
+        Me.GridView1.GridControl = Me.GridControl1
+        Me.GridView1.Name = "GridView1"
+        Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView1.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
+        Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridView1.OptionsView.ColumnAutoWidth = False
+        Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridView1.OptionsView.ShowAutoFilterRow = True
+        Me.GridView1.OptionsView.ShowGroupPanel = False
+        '
+        'GridColumn3
+        '
+        resources.ApplyResources(Me.GridColumn3, "GridColumn3")
+        Me.GridColumn3.FieldName = "Select"
+        Me.GridColumn3.Name = "GridColumn3"
+        '
+        'GridColumn4
+        '
+        Me.GridColumn4.FieldName = "Username"
+        Me.GridColumn4.Name = "GridColumn4"
+        Me.GridColumn4.OptionsColumn.AllowEdit = False
+        resources.ApplyResources(Me.GridColumn4, "GridColumn4")
+        '
+        'GridColumn5
+        '
+        Me.GridColumn5.FieldName = "Email"
+        Me.GridColumn5.Name = "GridColumn5"
+        Me.GridColumn5.OptionsColumn.AllowEdit = False
+        resources.ApplyResources(Me.GridColumn5, "GridColumn5")
+        '
+        'GridColumn6
+        '
+        Me.GridColumn6.FieldName = "ID"
+        Me.GridColumn6.Name = "GridColumn6"
+        '
+        'TBWH_Users1BindingSource
+        '
+        Me.TBWH_Users1BindingSource.DataMember = "TBWH_Users1"
+        Me.TBWH_Users1BindingSource.DataSource = Me.DD_ECMAdmin
+        '
         'frmFollowUp
         '
         resources.ApplyResources(Me, "$this")
@@ -926,6 +1049,13 @@ Partial Class frmFollowUp
         Me.XtraTabPage3.ResumeLayout(False)
         CType(Me.GridResult, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.grvwResult, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridControlUsers2Group, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewlUsers2Group, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -971,7 +1101,6 @@ Partial Class frmFollowUp
     Friend WithEvents lblSaveWVEmail As System.Windows.Forms.Label
     Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
     Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox
-    Friend WithEvents ListBoxUser2Profile As System.Windows.Forms.ListBox
     Friend WithEvents PROCESS_SELECT4TextBox As System.Windows.Forms.TextBox
     Friend WithEvents PROCESS_SELECT3TextBox As System.Windows.Forms.TextBox
     Friend WithEvents PROCESS_SELECT2TextBox As System.Windows.Forms.TextBox
@@ -981,7 +1110,6 @@ Partial Class frmFollowUp
     Friend WithEvents Label4 As System.Windows.Forms.Label
     Friend WithEvents Label5 As System.Windows.Forms.Label
     Friend WithEvents btnAddUser_WV As System.Windows.Forms.Button
-    Friend WithEvents cmbUser As System.Windows.Forms.ComboBox
     Friend WithEvents btndelete As System.Windows.Forms.Button
     Friend WithEvents PROCESS_SELECT5TextBox As System.Windows.Forms.TextBox
     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
@@ -1003,4 +1131,19 @@ Partial Class frmFollowUp
     Friend WithEvents cmbCTRLUser_direct As System.Windows.Forms.ComboBox
     Friend WithEvents GridResult As DevExpress.XtraGrid.GridControl
     Friend WithEvents grvwResult As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridControlUsers2Group As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewlUsers2Group As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents TBWH_Users1BindingSource As System.Windows.Forms.BindingSource
+    Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin
+    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents GridColumn6 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource
 End Class

app/DD-Record-Organiser/frmFollowUp.resx

@@ -402,7 +402,7 @@
     <value>Segoe UI, 8.25pt, style=Italic</value>
   </data>
   <data name="ADDED_WHOLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>549, 493</value>
+    <value>710, 190</value>
   </data>
   <data name="ADDED_WHOLabel.Size" type="System.Drawing.Size, System.Drawing">
     <value>61, 13</value>
@@ -435,7 +435,7 @@
     <value>Segoe UI, 8.25pt, style=Italic</value>
   </data>
   <data name="ADDED_WHENLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>710, 493</value>
+    <value>855, 189</value>
   </data>
   <data name="ADDED_WHENLabel.Size" type="System.Drawing.Size, System.Drawing">
     <value>70, 13</value>
@@ -468,7 +468,7 @@
     <value>Segoe UI, 8.25pt, style=Italic</value>
   </data>
   <data name="CHANGED_WHOLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>549, 534</value>
+    <value>710, 233</value>
   </data>
   <data name="CHANGED_WHOLabel.Size" type="System.Drawing.Size, System.Drawing">
     <value>58, 13</value>
@@ -501,7 +501,7 @@
     <value>Segoe UI, 8.25pt, style=Italic</value>
   </data>
   <data name="CHANGED_WHENLabel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>710, 534</value>
+    <value>855, 233</value>
   </data>
   <data name="CHANGED_WHENLabel.Size" type="System.Drawing.Size, System.Drawing">
     <value>70, 13</value>
@@ -774,7 +774,7 @@
     <value>Segoe UI, 8.25pt, style=Italic</value>
   </data>
   <data name="Label6.Location" type="System.Drawing.Point, System.Drawing">
-    <value>549, 576</value>
+    <value>819, 277</value>
   </data>
   <data name="Label6.Size" type="System.Drawing.Size, System.Drawing">
     <value>32, 13</value>
@@ -915,9 +915,6 @@
   <metadata name="TBPMO_FOLLOW_UP_EMAILBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>160, 17</value>
   </metadata>
-  <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
   <data name="cmbCTRLGroup_direct.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI Semibold, 8.25pt, style=Bold, Italic</value>
   </data>
@@ -990,30 +987,138 @@
   <data name="&gt;&gt;cmbConstructor.ZOrder" xml:space="preserve">
     <value>5</value>
   </data>
-  <data name="ListBoxUser2Profile.Font" type="System.Drawing.Font, System.Drawing">
+  <data name="GroupBox3.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Segoe UI, 8.25pt</value>
+    <value>Top, Bottom, Left</value>
   </data>
-  <data name="ListBoxUser2Profile.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="GridControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>21, 21</value>
+    <value>Top, Bottom, Left</value>
   </data>
-  <data name="ListBoxUser2Profile.Size" type="System.Drawing.Size, System.Drawing">
+  <metadata name="TBWH_Users1BindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>181, 134</value>
+    <value>944, 56</value>
+  </metadata>
+  <metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>614, 56</value>
+  </metadata>
+  <data name="GridControl1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>534, 39</value>
   </data>
-  <data name="ListBoxUser2Profile.TabIndex" type="System.Int32, mscorlib">
+  <data name="GridView1.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>80</value>
+    <value>Cyan</value>
   </data>
-  <data name="&gt;&gt;ListBoxUser2Profile.Name" xml:space="preserve">
+  <data name="GridView1.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>ListBoxUser2Profile</value>
+    <value>Fuchsia</value>
   </data>
-  <data name="&gt;&gt;ListBoxUser2Profile.Type" xml:space="preserve">
+  <data name="GridColumn3.Caption" xml:space="preserve">
-    <value>System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>Selection</value>
   </data>
-  <data name="&gt;&gt;ListBoxUser2Profile.Parent" xml:space="preserve">
+  <data name="GridColumn3.Visible" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="GridColumn3.VisibleIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="GridColumn3.Width" type="System.Int32, mscorlib">
+    <value>54</value>
+  </data>
+  <data name="GridColumn4.Visible" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="GridColumn4.VisibleIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="GridColumn4.Width" type="System.Int32, mscorlib">
+    <value>107</value>
+  </data>
+  <data name="GridColumn5.Visible" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="GridColumn5.VisibleIndex" type="System.Int32, mscorlib">
+    <value>2</value>
+  </data>
+  <data name="GridColumn5.Width" type="System.Int32, mscorlib">
+    <value>102</value>
+  </data>
+  <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>293, 184</value>
+  </data>
+  <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
+    <value>94</value>
+  </data>
+  <data name="&gt;&gt;GridControl1.Name" xml:space="preserve">
+    <value>GridControl1</value>
+  </data>
+  <data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
     <value>GroupBox3</value>
   </data>
-  <data name="&gt;&gt;ListBoxUser2Profile.ZOrder" xml:space="preserve">
+  <data name="&gt;&gt;GridControl1.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
+  <data name="GridControlUsers2Group.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Top, Bottom, Left</value>
+  </data>
+  <metadata name="TBAD_UsersBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>749, 56</value>
+  </metadata>
+  <data name="GridControlUsers2Group.Location" type="System.Drawing.Point, System.Drawing">
+    <value>10, 18</value>
+  </data>
+  <data name="GridViewlUsers2Group.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
+    <value>Cyan</value>
+  </data>
+  <data name="GridViewlUsers2Group.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
+    <value>Fuchsia</value>
+  </data>
+  <data name="colSelect.Caption" xml:space="preserve">
+    <value>Selection</value>
+  </data>
+  <data name="colSelect.Visible" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="colSelect.VisibleIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="colSelect.Width" type="System.Int32, mscorlib">
+    <value>54</value>
+  </data>
+  <data name="GridColumn1.Visible" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="GridColumn1.VisibleIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="GridColumn1.Width" type="System.Int32, mscorlib">
+    <value>107</value>
+  </data>
+  <data name="GridColumn2.Visible" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="GridColumn2.VisibleIndex" type="System.Int32, mscorlib">
+    <value>2</value>
+  </data>
+  <data name="GridColumn2.Width" type="System.Int32, mscorlib">
+    <value>102</value>
+  </data>
+  <data name="GridControlUsers2Group.Size" type="System.Drawing.Size, System.Drawing">
+    <value>293, 202</value>
+  </data>
+  <data name="GridControlUsers2Group.TabIndex" type="System.Int32, mscorlib">
+    <value>93</value>
+  </data>
+  <data name="&gt;&gt;GridControlUsers2Group.Name" xml:space="preserve">
+    <value>GridControlUsers2Group</value>
+  </data>
+  <data name="&gt;&gt;GridControlUsers2Group.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;GridControlUsers2Group.Parent" xml:space="preserve">
+    <value>GroupBox3</value>
+  </data>
+  <data name="&gt;&gt;GridControlUsers2Group.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
   <data name="Label5.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
@@ -1021,7 +1126,7 @@
     <value>Segoe UI, 8.25pt</value>
   </data>
   <data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
-    <value>213, 21</value>
+    <value>531, 18</value>
   </data>
   <data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
     <value>92, 13</value>
@@ -1042,30 +1147,6 @@
     <value>GroupBox3</value>
   </data>
   <data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="cmbUser.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 8.25pt</value>
-  </data>
-  <data name="cmbUser.Location" type="System.Drawing.Point, System.Drawing">
-    <value>216, 37</value>
-  </data>
-  <data name="cmbUser.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 21</value>
-  </data>
-  <data name="cmbUser.TabIndex" type="System.Int32, mscorlib">
-    <value>89</value>
-  </data>
-  <data name="&gt;&gt;cmbUser.Name" xml:space="preserve">
-    <value>cmbUser</value>
-  </data>
-  <data name="&gt;&gt;cmbUser.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;cmbUser.Parent" xml:space="preserve">
-    <value>GroupBox3</value>
-  </data>
-  <data name="&gt;&gt;cmbUser.ZOrder" xml:space="preserve">
     <value>2</value>
   </data>
   <data name="btnAddUser_WV.Font" type="System.Drawing.Font, System.Drawing">
@@ -1075,10 +1156,10 @@
     <value>MiddleLeft</value>
   </data>
   <data name="btnAddUser_WV.Location" type="System.Drawing.Point, System.Drawing">
-    <value>216, 64</value>
+    <value>309, 21</value>
   </data>
   <data name="btnAddUser_WV.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 23</value>
+    <value>216, 23</value>
   </data>
   <data name="btnAddUser_WV.TabIndex" type="System.Int32, mscorlib">
     <value>90</value>
@@ -1108,10 +1189,10 @@
     <value>MiddleLeft</value>
   </data>
   <data name="btndelete.Location" type="System.Drawing.Point, System.Drawing">
-    <value>216, 93</value>
+    <value>309, 50</value>
   </data>
   <data name="btndelete.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 23</value>
+    <value>216, 23</value>
   </data>
   <data name="btndelete.TabIndex" type="System.Int32, mscorlib">
     <value>92</value>
@@ -1141,7 +1222,7 @@
     <value>67, 493</value>
   </data>
   <data name="GroupBox3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>479, 160</value>
+    <value>1062, 226</value>
   </data>
   <data name="GroupBox3.TabIndex" type="System.Int32, mscorlib">
     <value>103</value>
@@ -1162,10 +1243,10 @@
     <value>6</value>
   </data>
   <data name="FOLLOW_UP_DAYSTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>552, 592</value>
+    <value>858, 274</value>
   </data>
   <data name="FOLLOW_UP_DAYSTextBox.Size" type="System.Drawing.Size, System.Drawing">
-    <value>99, 21</value>
+    <value>78, 21</value>
   </data>
   <data name="FOLLOW_UP_DAYSTextBox.TabIndex" type="System.Int32, mscorlib">
     <value>101</value>
@@ -1315,7 +1396,7 @@
     <value>True</value>
   </data>
   <data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
-    <value>781, 26</value>
+    <value>710, 25</value>
   </data>
   <data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
     <value>111, 13</value>
@@ -1489,10 +1570,10 @@
     <value>26</value>
   </data>
   <data name="ListBox1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>784, 42</value>
+    <value>713, 41</value>
   </data>
   <data name="ListBox1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>265, 225</value>
+    <value>265, 134</value>
   </data>
   <data name="ListBox1.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -1516,7 +1597,7 @@
     <value>Segoe UI, 9.75pt, style=Bold</value>
   </data>
   <data name="lblSaveWVEmail.Location" type="System.Drawing.Point, System.Drawing">
-    <value>867, 511</value>
+    <value>620, 274</value>
   </data>
   <data name="lblSaveWVEmail.Size" type="System.Drawing.Size, System.Drawing">
     <value>219, 17</value>
@@ -1546,7 +1627,7 @@
     <value>Segoe UI, 8.25pt, style=Italic</value>
   </data>
   <data name="CHANGED_WHENTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>713, 550</value>
+    <value>858, 249</value>
   </data>
   <data name="CHANGED_WHENTextBox.Size" type="System.Drawing.Size, System.Drawing">
     <value>150, 22</value>
@@ -1570,7 +1651,7 @@
     <value>Segoe UI, 8.25pt, style=Italic</value>
   </data>
   <data name="CHANGED_WHOTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>552, 550</value>
+    <value>713, 249</value>
   </data>
   <data name="CHANGED_WHOTextBox.Size" type="System.Drawing.Size, System.Drawing">
     <value>138, 22</value>
@@ -1594,7 +1675,7 @@
     <value>Segoe UI, 8.25pt, style=Italic</value>
   </data>
   <data name="ADDED_WHENTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>713, 509</value>
+    <value>858, 206</value>
   </data>
   <data name="ADDED_WHENTextBox.Size" type="System.Drawing.Size, System.Drawing">
     <value>150, 22</value>
@@ -1618,7 +1699,7 @@
     <value>Segoe UI, 8.25pt, style=Italic</value>
   </data>
   <data name="ADDED_WHOTextBox.Location" type="System.Drawing.Point, System.Drawing">
-    <value>552, 509</value>
+    <value>713, 206</value>
   </data>
   <data name="ADDED_WHOTextBox.Size" type="System.Drawing.Size, System.Drawing">
     <value>138, 22</value>
@@ -1938,6 +2019,12 @@
   <data name="BindingNavigatorAddNewItem.Text" xml:space="preserve">
     <value>Neu hinzufügen</value>
   </data>
+  <metadata name="TBPMO_FOLLOW_UP_EMAILBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>160, 17</value>
+  </metadata>
+  <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
   <data name="BindingNavigatorCountItem.Size" type="System.Drawing.Size, System.Drawing">
     <value>122, 22</value>
   </data>
@@ -2085,7 +2172,7 @@
     <value>0, 0</value>
   </data>
   <data name="TBPMO_FOLLOW_UP_EMAILBindingNavigator.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1105, 25</value>
+    <value>1129, 25</value>
   </data>
   <data name="TBPMO_FOLLOW_UP_EMAILBindingNavigator.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -2106,7 +2193,7 @@
     <value>57</value>
   </data>
   <data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1105, 665</value>
+    <value>1105, 736</value>
   </data>
   <data name="XtraTabPage1.Text" xml:space="preserve">
     <value>Wiedervorlage per E-Mail</value>
@@ -2124,7 +2211,7 @@
     <value>0</value>
   </data>
   <data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1111, 693</value>
+    <value>1111, 764</value>
   </data>
   <data name="XtraTabControl1.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -2190,7 +2277,7 @@
     <value>4</value>
   </data>
   <data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>987, 614</value>
+    <value>1105, 665</value>
   </data>
   <data name="XtraTabPage2.Text" xml:space="preserve">
     <value>Grundeinstellungen Wiedervorlage</value>
@@ -2220,7 +2307,7 @@
     <value>0</value>
   </data>
   <data name="XtraTabPage3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>987, 614</value>
+    <value>1105, 665</value>
   </data>
   <data name="XtraTabPage3.Text" xml:space="preserve">
     <value>Aktuelle Datensätze zur Wiedervorlage</value>
@@ -2589,7 +2676,7 @@
     <value>Cyan</value>
   </data>
   <data name="GridResult.Size" type="System.Drawing.Size, System.Drawing">
-    <value>987, 614</value>
+    <value>1105, 665</value>
   </data>
   <data name="GridResult.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -2615,6 +2702,9 @@
   <metadata name="TBPMO_FORM_CONSTRUCTORTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>318, 56</value>
   </metadata>
+  <metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>614, 56</value>
+  </metadata>
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
@@ -2622,7 +2712,7 @@
     <value>6, 13</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>1111, 693</value>
+    <value>1111, 764</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt</value>
@@ -3193,6 +3283,84 @@
   <data name="&gt;&gt;TBPMO_FORM_CONSTRUCTORTableAdapter.Type" xml:space="preserve">
     <value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
+  <data name="&gt;&gt;GridViewlUsers2Group.Name" xml:space="preserve">
+    <value>GridViewlUsers2Group</value>
+  </data>
+  <data name="&gt;&gt;GridViewlUsers2Group.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;colSelect.Name" xml:space="preserve">
+    <value>colSelect</value>
+  </data>
+  <data name="&gt;&gt;colSelect.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;GridColumn1.Name" xml:space="preserve">
+    <value>GridColumn1</value>
+  </data>
+  <data name="&gt;&gt;GridColumn1.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;GridColumn2.Name" xml:space="preserve">
+    <value>GridColumn2</value>
+  </data>
+  <data name="&gt;&gt;GridColumn2.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;colID.Name" xml:space="preserve">
+    <value>colID</value>
+  </data>
+  <data name="&gt;&gt;colID.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;DD_ECMAdmin.Name" xml:space="preserve">
+    <value>DD_ECMAdmin</value>
+  </data>
+  <data name="&gt;&gt;DD_ECMAdmin.Type" xml:space="preserve">
+    <value>DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;TBAD_UsersBindingSource.Name" xml:space="preserve">
+    <value>TBAD_UsersBindingSource</value>
+  </data>
+  <data name="&gt;&gt;TBAD_UsersBindingSource.Type" xml:space="preserve">
+    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;GridView1.Name" xml:space="preserve">
+    <value>GridView1</value>
+  </data>
+  <data name="&gt;&gt;GridView1.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;GridColumn3.Name" xml:space="preserve">
+    <value>GridColumn3</value>
+  </data>
+  <data name="&gt;&gt;GridColumn3.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;GridColumn4.Name" xml:space="preserve">
+    <value>GridColumn4</value>
+  </data>
+  <data name="&gt;&gt;GridColumn4.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;GridColumn5.Name" xml:space="preserve">
+    <value>GridColumn5</value>
+  </data>
+  <data name="&gt;&gt;GridColumn5.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;GridColumn6.Name" xml:space="preserve">
+    <value>GridColumn6</value>
+  </data>
+  <data name="&gt;&gt;GridColumn6.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;TBWH_Users1BindingSource.Name" xml:space="preserve">
+    <value>TBWH_Users1BindingSource</value>
+  </data>
+  <data name="&gt;&gt;TBWH_Users1BindingSource.Type" xml:space="preserve">
+    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmFollowUp</value>
   </data>

app/DD-Record-Organiser/frmFollowUp.vb

@@ -51,7 +51,7 @@
 
     Private Sub frmWiedervorlage_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR". Sie können sie bei Bedarf verschieben oder entfernen.
-
+        Me.Cursor = Cursors.WaitCursor
         Try
             Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 4 ORDER BY FORM_ID")
             Dim DT2 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 10 ORDER BY FORM_ID")
@@ -70,11 +70,23 @@
             DEPENDENT_DONE_CTRL_IDComboBox.DisplayMember = DT2.Columns(1).ColumnName
             DEPENDENT_DONE_CTRL_IDComboBox.ValueMember = DT2.Columns(0).ColumnName
 
+            DD_ECMAdmin.TBWH_Users1.Clear()
+            For Each userrow As DataRow In DTUser.Rows
+                Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
+                newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
 
+                newUserRow.Username = userrow.Item(1)
+                Try
+                    newUserRow.Email = userrow.Item(2)
+                Catch ex As Exception
+                    newUserRow.Email = ""
+                End Try
+
+                newUserRow.ID = userrow.Item(0)
+                DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow)
+                'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
+            Next
 
-            cmbUser.DataSource = DTUser
-            cmbUser.DisplayMember = DTUser.Columns(1).ColumnName
-            cmbUser.ValueMember = DTUser.Columns(0).ColumnName
             TBPMO_FOLLOW_UP_EMAILTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR, USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
@@ -83,7 +95,7 @@
         Catch ex As Exception
             MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-
+        Me.Cursor = Cursors.Default
     End Sub
     Sub Load_WV_PRofiles()
         Try
@@ -171,11 +183,22 @@
     End Sub
     Sub Load_User_2_Profile(ID As Integer)
         Try
+            DD_ECMAdmin.TBAD_Users.Clear()
             Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_USER T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & GUIDTextBox.Text & " ORDER BY T1.USERNAME"
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
-            ListBoxUser2Profile.DataSource = DT
+            For Each userrow As DataRow In DT.Rows
-            ListBoxUser2Profile.DisplayMember = DT.Columns(1).ColumnName
+                Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
-            ListBoxUser2Profile.ValueMember = DT.Columns(0).ColumnName
+                newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
+
+                newUserRow.Username = userrow.Item(1)
+                Try
+                    newUserRow.Email = userrow.Item(2)
+                Catch ex As Exception
+                    newUserRow.Email = ""
+                End Try
+                newUserRow.ID = userrow.Item(0)
+                DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
+            Next
         Catch ex As Exception
             MsgBox("Fehler bei LaodUser2Profile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
@@ -190,29 +213,36 @@
     End Sub
 
     Private Sub btnAddUser_WV_Click(sender As Object, e As EventArgs) Handles btnAddUser_WV.Click
-        If cmbUser.SelectedIndex <> -1 Then
+        For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
-            Try
+            If row.Item(0) = CBool(True) Then
-                Dim ins = "insert into TBPMO_FOLLUPEMAIL_USER (USER_ID,FOLLOW_UP_ID,ADDED_WHO) VALUES (" & cmbUser.SelectedValue & ", " & Me.GUIDTextBox.Text & ", '" & Environment.UserName & "')"
+                Dim sql = "select count(*) from TBPMO_FOLLUPEMAIL_USER Where user_id = " & row.Item(5) & " AND FOLLOW_UP_ID = " & Me.GUIDTextBox.Text
-                If ClassDatabase.Execute_non_Query(ins, True) = True Then
+                If ClassDatabase.Execute_Scalar(sql) = 0 Then
-                    Load_User_2_Profile(Me.GUIDTextBox.Text)
+                    Dim ins = "insert into TBPMO_FOLLUPEMAIL_USER (USER_ID,FOLLOW_UP_ID,ADDED_WHO) VALUES (" & row.Item(5) & ", " & Me.GUIDTextBox.Text & ", '" & Environment.UserName & "')"
+                    If ClassDatabase.Execute_non_Query(ins) = False Then
+                        MsgBox(String.Format("Error in Adding User {0} to FollowUp!", row.Item(1)), MsgBoxStyle.Critical)
+                    End If
                 End If
-            Catch ex As Exception
+            End If
-                MsgBox("Fehler bei AddUser2Profile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        Next
-            End Try
+        For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
-        End If
+            row.Item(0) = CBool(False)
+        Next
+        Load_User_2_Profile(Me.GUIDTextBox.Text)
     End Sub
 
     Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
-        If ListBoxUser2Profile.SelectedIndex <> -1 Then
+        For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
-            Try
+            If row.Item(0) = CBool(True) Then
-                Dim del = "DELETE FROM TBPMO_FOLLUPEMAIL_USER WHERE GUID = " & ListBoxUser2Profile.SelectedValue
+                Dim sql
-                If ClassDatabase.Execute_non_Query(del, True) = True Then
+                sql = String.Format("DELETE FROM TBPMO_FOLLUPEMAIL_USER  WHERE GUID = {0}", row.Item(5))
-                    Load_User_2_Profile(Me.GUIDTextBox.Text)
+                If ClassDatabase.Execute_non_Query(sql, True) = False Then
+                    MsgBox(String.Format("Error in deleting User {0} from FollowUp", row.Item(1)), MsgBoxStyle.Critical)
                 End If
-            Catch ex As Exception
+            End If
-                MsgBox("Fehler bei DeleteUserRelation:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        Next
-            End Try
+        Load_User_2_Profile(Me.GUIDTextBox.Text)
-        End If
+
+
     End Sub
     Private Sub frmWiedervorlage_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         If Me.GUIDTextBox.Text <> "" Then

app/DD-Record-Organiser/frmUserKonfig.resx

@@ -1809,7 +1809,7 @@
     <value>17, 134</value>
   </metadata>
   <metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>729, 95</value>
+    <value>822, 95</value>
   </metadata>
   <data name="GridControlWH_Users1.Location" type="System.Drawing.Point, System.Drawing">
     <value>667, 19</value>
@@ -1872,7 +1872,7 @@
     <value>Top, Bottom, Left</value>
   </data>
   <metadata name="TBAD_UsersBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>864, 95</value>
+    <value>957, 95</value>
   </metadata>
   <data name="GridControlUsers2Group.Location" type="System.Drawing.Point, System.Drawing">
     <value>229, 19</value>
@@ -2598,7 +2598,7 @@ Gruppe hinzufügen</value>
     <value>True</value>
   </data>
   <metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>575, 95</value>
+    <value>668, 95</value>
   </metadata>
   <data name="ToolStripButton17.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -2831,7 +2831,7 @@ Gruppe hinzufügen</value>
     <value>1</value>
   </data>
   <metadata name="TBDD_CLIENTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>171, 95</value>
+    <value>264, 95</value>
   </metadata>
   <data name="GUIDTextBox.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 8.25pt, style=Italic</value>
@@ -3456,7 +3456,7 @@ Mandant hinzufügen</value>
     <value>259, 56</value>
   </metadata>
   <metadata name="TBDD_USER_GROUPSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1176, 17</value>
+    <value>17, 56</value>
   </metadata>
   <metadata name="VWPMO_USERS_GROUPSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>529, 56</value>
@@ -3519,7 +3519,7 @@ Mandant hinzufügen</value>
     <value>9</value>
   </data>
   <metadata name="TBDD_GROUPS_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>947, 56</value>
+    <value>17, 95</value>
   </metadata>
   <data name="Label5.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
@@ -3576,7 +3576,7 @@ Mandant hinzufügen</value>
     <value>6</value>
   </data>
   <metadata name="TBDD_CLIENTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>376, 95</value>
+    <value>469, 95</value>
   </metadata>
   <data name="GridControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
     <value>Top, Left, Right</value>