Application Losing Control on SelectOnScreen

[Anonymous]

Hello all,

i have this vb.net code, when the code is executed, after calling SelectOnScreen function, it does not throw any exception, but control path is lost and next lines in this code are not executed.

On Error GoTo ErrorHandler

Dim selSet As AcadSelectionSet

If doc Is Nothing Then Exit Sub    'doc is AcadDocument
selSet = doc.SelectionSets.Add("DocType")    

selSet.SelectOnScreen()    'Control is lost here

'Some line of code that never executes

selSet.Delete()
Exit Sub

ErrorHandler:
MessageBox.Show("Error")

End Sub