Dim x As Double, y As Double, Shift As Long, b As Boolean, doc As Document

    Dim sel1 As Shape, sel2 As Shape, s1 As Shape, s2 As Shape

    Set doc = ActiveDocument

    b = False

    While Not b

        b = doc.GetUserClick(x, y, Shift, 10, False, cdrCursorWinCross)

        Set sel1 = doc.ActivePage.SelectShapesAtPoint(x, y, False)

        If sel1.Shapes.Count > 0 Then

            Set s1 = sel1.Shapes.Last

            doc.ClearSelection

            s1.AddToSelection

        End If

        b = doc.GetUserClick(x, y, Shift, 10, False, cdrCursorWinCross)

        Set sel2 = doc.ActivePage.SelectShapesAtPoint(x, y, False)

        If sel2.Shapes.Count > 0 Then

            Set s2 = sel2.Shapes.Last

            doc.ClearSelection

            s2.AddToSelection

        End If

        s1.AlignToShape cdrAlignBottom, s2

        s1.AlignToShape cdrAlignRight, s2

    Wend