Public Function SmartSelect( _
   ByVal pSourceObject As Object, _
   ByVal vbColor As Boolean, _
   ByVal vbType As Boolean, _
   ByVal vbLayer As Boolean, _
   ByVal vbLineType As Boolean, _
   ByVal vbLineWidth As Boolean _
) As SelectSet