Private Sub ActivateEditing(ByVal benable As Boolean)
Dim ocurr As Object
        'jedes Objekt durchlaufen
        For Each ocurr In Me.Controls
            'Prüfen ob ein Feld ein textfeld ist wenn ja dann verändern außer 
            ' txtKlient 
            If TypeOf ocurr Is TextBox Then
                If benable Then
                    ocurr.BorderStyle() = _
                       System.Windows.Forms.BorderStyle.Fixed3D
                    ocurr.BackColor() = System.Drawing.Color.White
                Else
                    ocurr.BorderStyle() = _
                            System.Windows.Forms.BorderStyle.FixedSingle
                    ocurr.BackColor() = Me.BackColor
               End If
                ocurr.Enabled = benable
            End If
        Next
End sub