VB Docker, add objects to a selection and scale

I have the below code for a docker that I created with a button called 'RGBProof'. After the 'for...next' statement, I want to do the request in the comments. Can anyone help?

Private Sub RGBProof_Click(sender As Object, e As RoutedEventArgs) Handles RGBProof.Click

        'Description:

        '   Convert selected items to RGB for customer proof

        If appDraw.ActiveSelection.Shapes.Count < 1 Then

            MsgBox("There is no active selection.", MsgBoxStyle.OkOnly)

            Exit Sub

        End If

        Dim os As c.ShapeRange, s As c.Shape

        os = appDraw.ActiveSelectionRange

        appDraw.ActiveDocument.BeginCommandGroup("RGB for Proof")

        For Each s In os

            s.Outline.Color.ConvertToRGB()

            s.ConvertToBitmapEx(c.cdrImageType.cdrRGBColorImage, False, True, 300, c.cdrAntiAliasingType.cdrNormalAntiAliasing, False, False, 95).Bitmap.ApplyBitmapEffect("Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=50, GaussianBlurResampled=0")

        Next

        '*****

        ' At this point I want to select all shapes on the page, group them, and scale to 30% of original size.

        '*****

        appDraw.ActiveDocument.EndCommandGroup()

    End Sub