Sub main()

ThisDrawing.SendCommand "_erase" & vbCr & "all" & vbCr
Dim vertexList(0 To 23) As Double

vertexList(0) = 0: vertexList(1) = 0: vertexList(2) = 0 'punkt0
vertexList(3) = 0: vertexList(4) = 10: vertexList(5) = 0 'punkt1
vertexList(6) = 10: vertexList(7) = 10: vertexList(8) = 0 'punkt2
vertexList(9) = 10: vertexList(10) = 0: vertexList(11) = 0 'punkt3
vertexList(12) = 0: vertexList(13) = 0: vertexList(14) = 10 'punkt4
vertexList(15) = 0: vertexList(16) = 10: vertexList(17) = 10 'punkt5
vertexList(18) = 10: vertexList(19) = 10: vertexList(20) = 10 'punkt6
vertexList(21) = 10: vertexList(22) = 0: vertexList(23) = 10 'punkt7

Dim FaceList(0 To 23) As Integer

FaceList(0) = 1
FaceList(1) = 2
FaceList(2) = 3
FaceList(3) = 4
FaceList(4) = 1
FaceList(5) = 5
FaceList(6) = 8
FaceList(7) = 4
FaceList(8) = 5
FaceList(9) = 6
FaceList(10) = 7
FaceList(11) = 8
FaceList(12) = 2
FaceList(13) = 3
FaceList(14) = 7
FaceList(15) = 6
FaceList(16) = 3
FaceList(17) = 4
FaceList(18) = 8
FaceList(19) = 7
FaceList(20) = 1
FaceList(21) = 5
FaceList(22) = 6
FaceList(23) = 2

Dim obj As AcadPolyfaceMesh
Set obj = ModelSpace.AddPolyfaceMesh(vertexList, FaceList)
obj.Update

'Dim length As Double, width As Double, height As Double
Dim center(0 To 2) As Double
Dim experiObj As AcadPolyfaceMesh
Dim slave As AcadPolyfaceMesh
Dim verti As Variant

'experiObj = obj
obj.color = 151
Set slave = obj
verti = obj.Coordinate(0)
verti(1) = verti(1) - 6
obj.Coordinate(0) = verti
obj.Update

ZoomAll
End Sub