Missing Shape Definition

I took this code from one of your examples and got the error: “Type :Shape” is not defined.

Dim doc As Document = New Document("c:\" & "Image.SampleImages.doc")
Dim shapes As NodeCollection = doc.GetChildNodes(NodeType.Shape, True, False)
Dim imageIndex As Integer = 0
For Each shape As Shape In shapes
If shape.HasImage Then
Dim imageFileName As String = String.Format("Image.ExportImages.{0} Out.{1}", imageIndex, shape.ImageData.ImageType)
shape.ImageData.Save(MyDir & imageFileName)
imageIndex += 1
End If
Next shape

Thanks for your request. Shape class is in Aspose.Words.Drawing namespace. Add the following:
Imports Aspose.Words.Drawing
Best regards.