Joining Nodes Help Needed

Hey all,
i've been working trying to figure this one out, and i'm getting pretty annoyed that I can't..

The long and short of it is.. I'm looking for a way to take a shape made from lines and fill it.

The bit I need is how to join the nodes, i've been trying to use joinwith command (with combined and not combined lines) but i'm either having real trouble with the syntax or it doesnt work how I think it does.

I've recorded a macro doing it, but I don't understand the commands it uses.
Can someone give me a quick hand here,
Thanks alot!

[shelbym]

If you are doing the code it would look something like this:

Sub DrawMyShape()

Dim sShape As Shape
Dim crv As Curve
Dim sp As SubPath

Set crv = CreateCurve(ActiveDocument)
Set sp = crv.CreateSubPath(0, 0)
sp.AppendLineSegment -2.5, 0, False
sp.AppendLineSegment -2.5, 5, False
sp.AppendLineSegment 0, 7.5, False
sp.AppendLineSegment 2.5, 5, False
sp.AppendLineSegment 2.5, 0, False
sp.AppendLineSegment 0, 0, False
sp.Closed = True
Set sShape = ActiveLayer.CreateCurve(crv)
sShape.Fill.UniformColor.RGBAssign 178, 178, 178

End Sub

This should draw a little house shape and fill it. If it is a shape that is already drawn and you need to close it use Alex's close script. You can find it here: Close Shape

Hope that helps,

Shelby

Thanks alot, and thanks for moving my posts to the correct place, i'll make sure they go here from now on.