'Editieren aktivieren
    Private Sub ActivateEditing(ByVal bEnable As Boolean)
 
        Dim obj As Object
 
        For Each obj In Me.Controls()
 
            If TypeOf obj Is TextBox Then
                If bEnable = True Then
 
                    obj.BorderStyle() = System.Windows.Forms.BorderStyle.Fixed3D
                    obj.backcolor() = System.Drawing.Color.White
 
                Else
 
                    obj.BorderStyle() = _
                      System.Windows.Forms.BorderStyle.FixedSingle
                    obj.backcolor() = Me.BackColor
 
                End If
            End If
 
        Next
    End Sub