CorelDRAW Graphics Suite X5 :: Convert Shape To Bitmap And Save To Filesystem

I try to run this code, but I always get an error like : Method SaveAs failed to run on Object IDrawBitmap ?

Sub Test()

Dim r As Shape, s As ShapeSet r = ActiveLayer.CreateRectangle(0, 0, 5, 5) r.Fill.UniformColor.CMYKAssign 100, 0, 0, 0 Set s = ActiveLayer.CreateEllipse2(3, 3, 2) s.Fill.UniformColor.CMYKAssign 0, 100, 100, 0 Set s = s.ConvertToBitmapEx(cdrRGBColorImage, False, True) s.CreateDropShadow cdrDropShadowFlat, 80, 10, 0.5, -0.5, CreateCMYKColor(0, 50, 50, 50)

 r.CreateSelections.Selected = True

 If (s.Type = cdrBitmapShape) Then MsgBox "isBitmapShape"

 Dim ex As ExportFilter

 Set ex = s.Bitmap.SaveAs("c:
ewBMP.bmp", cdrBMP, cdrCompressionRLE_LW)

End Sub