'move lines down by moving only the points of the objects

    For i As Integer = 19 To 0 Step -1
        If (counter(i) = 10) Then
            For Each shp As Shape In boardPieces
                Dim moveDown As Boolean = False
                Dim pointsToMove As New Collection(Of Point)
                For Each pnt As Point In shp.Points
                    If (pnt.Y > i) Then
                        pointsToMove.Add(pnt)
                    End If
                Next
                For Each pnt As Point In pointsToMove
                    shp.MovePointDown(pnt)
                Next
                'If (moveDown And shp.WillCollide(NewDirection.down) = False) Then

                '    shp.MoveDown()

                'End If

                shp.IsFrozen = True
            Next
        End If
    Next