multiple shapes

You can use a For Each Loop and loop through them. This code loops trough all of the Controls in the Form and if it is a Shape or a Line, then it will perform a certian task. In this case, it will move the Shapes and Lines to the Left by 20 Twips.

Put several Shapes and Lines on the Form and put this code into a CommandButton.

Code:

---

Private Sub Command1_Click()

    Dim Obj As Object

    For Each Obj In Controls
   
        'If Obj is a Shap then do something
        If TypeOf Obj Is Shape Then Obj.Move Obj.Left - 20
       
        'If Obj is a Line then do something
        If TypeOf Obj Is Line Then
            Obj.X1 = Obj.X1 - 20
            Obj.X2 = Obj.X2 - 20
        End If
       
    Next Obj
           
End Sub

---