Public Sub TextBox_SetLocked(oControl As sevTextBox.sevText, _
  ByVal bLocked As Boolean)
 
  With oControl
    If bLocked Then
      .BackColor = &H80000000
      .BackColorFocus = &H80000000
    Else
      .BackColor = &HFFFFFF
      .BackColorFocus = &HFFFFFF
    End If
 
    .Locked = bLocked
  End With
End Sub

Private Sub CmdEdit_Click()
...
  CmdGesamtWertSummenRechnen.TabStop = True
  ' hintergrund der felder und bearbeitung der felder auf editierbar setzen
  TextBox_SetLocked CMNr, False
...

...
' hintergrund der felder und bearbeitung der felder auf nicht editierbar setzen
TextBox_SetLock CMN, True

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de