Hello,
check this code.
Option Explicit
Public Sub surfaceCreate()
Dim drw As Drawing
Set drw = App.ActiveDrawing
Dim SurRec As Path
Set SurRec = drw.CreateRectangle(0, 0, 1000, 500)
drw.CreateSurfaceFlat SurRec
End Sub
https://drive.google.com/file/d/1jmF...usp=share_link