Set Polyline from AcadEntitiy

I'm haveing problems setting and AcadPolyline from an AcadEntity's Handle.
What am I doing wrong?

Dim Entity As AcadEntity

For Each Entity In ThisDrawing.ModelSpace
Select Case Entity.ObjectName
Case "AcDbPolyline"
Dim oPoly As AcadPolyline
Set oPoly = ThisDrawing.HandleToObject(Entity.Handle)
MsgBox oPoly.ObjectID
End Select
Next Entity

 

Dim Entity As AcadEntity

For Each Entity in ThisDrawing.ModelSpace
Select Case Entity.ObjectName
Case "AcDbPolyline"
Dim oPoly As AcadPolyline
Set oPoly = Entity
MsgBox oPoly.ObjectID
End Select
Next Entity

 

I still get an error "Run-Time Error '13'"
What would cause this?

Public Function GetPoly()
Dim Entity As AcadEntity

For Each Entity In ThisDrawing.ModelSpace
Select Case Entity.ObjectName
Case "AcDbPolyline"
Dim oPoly As AcadPolyline
Set oPoly = Entity
MsgBox oPoly.ObjectID
End Select
Next Entity
End Function

 

Andrew,
Be careful what you are looking for. "AcDbPolyline" refers to a LWPolyline.
Your function is trying to place a LWpolyline in a Polyline container....If
you want the old style polyline it needs to be "AcDb2dPolyline"

HTH,
Jeff

 

That what it was I needed to use "LWPolyline" I was wondering why it would
not work.
Thanks,
Andy