Delegate Sub Modus_HandlerDelegate(ByVal Formular As _
      System.Windows.Forms.Form, ByVal Modus As String)
    Private Sub Modus_Handler(ByVal Formular As System.Windows.Forms.Form, _
    ByVal Modus As String)
        If Me.InvokeRequired Then
            Dim dd As New Modus_HandlerDelegate(AddressOf Modus_Handler)
            Me.Invoke(dd, New Object() {Formular, Modus})
        Else
            If Formular.InvokeRequired Then
                Dim dd As New Modus_HandlerDelegate(AddressOf Modus_Handler)
                FormInvoked.Invoke(dd, New Object() {Formular, Modus})
            Else
                Try
                    If Not prop_ButtonRightItems.CUPItemsCollection Is Nothing _
                      Then
                        If prop_ButtonRightItems.CUPItemsCollection.Count > _
                        0 Then
                            Call cls_AllControls1.SetModusRightButton(Formular, _
                            Me, Modus, iActivateButtonRightModushandling)
                        End If
                    End If
                    cls_AllControls1.SetModus(Formular, Me, Modus, _
                      iActivateModushandling)
                Catch ex As Exception
                    Me.Co_SystemComponent1.ErrorMail(Me.Name, _
                      cup_System.cls_System_Global.PersonalID.ToString, New _
                      StackFrame().GetMethod().Name, ex, "", False, True, _
                      False, False)
                End Try
            End If
        End If
    End Sub