Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
On Error Resume Next
If PickfirstSelectionSet.Count 1 Then Exit Sub
Select Case PickfirstSelectionSet.Item(0).ObjectName
Case "AcDbBlockReference"
Case "AcDbLine"
.............
Set DoubleClickLineObj = PickfirstSelectionSet.Item(0)
.........
Case Else
End Select