

| Type | Description | |||
| Long | A Long expression that defines the identifier of the OLE event. |
Private Sub G2antt1_UserEditorOleEvent(ByVal Object As Object, ByVal Ev As EXG2ANTTLibCtl.IOleEvent, CloseEditor As Boolean, ByVal Item As EXG2ANTTLibCtl.HITEM, ByVal ColIndex As Long)
If (Ev.ID = -602) Then ' KeyDown
Dim iKey As Long
iKey = Ev(0).Value
If iKey = vbKeyTab Then
With G2antt1
CloseEditor = True
.FocusColumnIndex = .FocusColumnIndex + 1
.SearchColumnIndex = .FocusColumnIndex
End With
End If
End If