Some lines cant be moved, need to use some hack.
Private Class Line
Public Shared Sub Move(ByVal Line As Object, ByVal HorizontalMove As Integer)
Dim Hack = Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance
Dim RasDocument = Line.GetType().GetProperty("RasDocument", Hack).GetValue(Line, Nothing)
Dim RasReportObject = Line.GetType().GetProperty("RasObject", Hack).GetValue(Line, Nothing)
Dim iSCRReportObject = RasReportObject.Clone(True)
iSCRReportObject.Left += HorizontalMove
iSCRReportObject.Right += HorizontalMove
RasDocument.ReportDefController.ReportObjectController.Modify(RasReportObject, iSCRReportObject)
End Sub
End Class