Dim Row As XtremeReportControl.IReportRow

Static InHere As Boolean

If InHere Or NewRow Is Nothing Or NewColumn Is Nothing Or NewItem Is Nothing Then Exit Sub

InHere = True

If NewRow.Index < vsg.FocusedRow.Index And KeyUpPressed Then

    KeyUpPressed = False

    Set Row = MoveUp(NewRow, NewColumn, NewItem)

Else

    Set Row = MoveDown(NewRow, NewColumn, NewItem)

End If

If Row Is Nothing Then

ElseIf Row.Index = NewRow.Index Then

    If NewColumn.Index = COL_OTHER Or Not m_hasOther Then

        vsg.FocusedColumn = vsg.Columns(COL_ANSWER)

    End If

Else

    Set vsg.FocusedColumn = vsg.Columns(COL_ANSWER)

    Set vsg.FocusedRow = Row

    Cancel = True

End If

Set Row = Nothing

InHere = False

End Sub

when End Sub is invoked, this crashes, move up and move down tries to find the next valid line that can be focused on.    I am working on a different way to do this.  It seem some sort of issue occurs and cause the IDE to crash.