انتقال فوکوس در خانه های سطر vsflexgrid

[Hassan2500]

سلام
کدی میخوام که وقتی در خانه های سطر پنجم vsflexgrid یک حرف نوشتم فوکوس به خانه بعدی خالی اون منتقل بشه

[vbhamed]

سلام
Private Sub VSFlexGrid1_ChangeEdit()
With VSFlexGrid1
If .Row = 4 And .Cols - 1 > .Col Then
.Col = .Col + 1
.FinishEditing False
DoEvents
End If
End With
End Sub