Private Sub dgvModel_CurrentCellChanged(sender As Object, e As _
  System.EventArgs) Handles dgvModel.CurrentCellChanged
 
        If dgvModel.CurrentCell.ReadOnly Then   ' Überprüfung, ob es sich um 
        ' eine ReadOnly-Spalte handelt...
 
            SendKeys.Send("{TAB}") ' TAB-Taste wird hier nochmals gesendet, 
            ' damit die Zelle übersprungen wird
 
        End If
 
    End Sub