<VB.NET>
Dim wallLocation As LocationCurve = aWall.Location
'' create a
new line bound.
Dim newPt1 = New XYZ(0.0, 0.0, 0.0)
Dim newPt2 = New XYZ(20.0, 0.0, 0.0)
Dim newWallLine As Line = m_rvtApp.Create.NewLineBound(newPt1, newPt2)
'' change
the curve.
wallLocation.Curve = newWallLine
</VB.NET>