Уменьшение разрешения изображения усреднением без попиксельной обработки в цикле - Visual Basic .NET

Формулировка задачи:

Существуют ли в VB.NET встроенные функции уменьшения размера изображения в пикселях через усреднение нескольких пикселей в меньшее число, а не с помощью выбрасывания лишних, как это происходит в следующем коде (порекомендованном в другой теме)

                    Листинг программы
                
Dim myImg1 As System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile("orig.bmp"), System.Drawing.Bitmap) 'загрузка изображения из оригинального файла
Dim myImg2 As New System.Drawing.Bitmap(myImg1, myImg1.Width / 2, myImg1.Height / 2) 'перерисовка  с половинным размером
myImg2.Save("sm.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Сохранение уменьшенного

Пример работы которого показан на приложенных картинках, в которых вместо серых линий слева и других цветов справа, просто поисчезали линии, то есть пропала информация. В частности интересует уменьшение в 2 раза, то есть, чтобы каждый квадрат из 4-ёх пикселей усреднялся до одного.

Решение задачи: «Уменьшение разрешения изображения усреднением без попиксельной обработки в цикле»

textual
                            Листинг программы 
                        
код с попиксельной обработкой