Private Sub sevGrid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
    Dim nRow As Long
    Dim vCol As Long
 
    Select Case KeyCode
        Case 9
            With framMain.sevGrid1
                nRow = .Row
                vCol = .Col
                .AllowEdit = False
                .Columns(.Col - 1).Width = 500
                '    .DoColumnAutoSize nCol -1
                .Columns(.Col).Width = 5000 ' varMixColumnEditWidth
                sevGrid1.DoEdit nRow, vCol
            End With
    End Select
End Sub

*greetz*
Tim
.
http://www.DotNetWorld.de