Mejorar eficiencia de funciones gráficas

[auxsys]

Buenas! Estoy trabajando con VB.NET en un programa que realiza muchísimas operaciones gráficas en imágenes. El resultado podría ser una imagen final en la que se han dibujado cientos y cientos de otras imágenes, situadas en lugares diferentes, escaladas, rotadas, con el brillo, la saturación y el matiz de color modificados, con mapas de opacidad aplicados para obtener canales alpha... En fín, me llevaría bastante tiempo explicar lo que hace el programa (y otro tanto para explicar su utilidad), pero en resumen, hay que efectuar muchísimas operaciones.

El programa lo tengo bastante avanzado y he implementado todas estas operaciones, ya que no quiero utilizar librerías de terceros, y algunas de las funciones que utilizo son bastante raras, imagino. El resultado es bueno, pero puede llevar unos cuantos segundos el generar la imagen final.

El problema es que mis funciones trabajan a nivel de píxel... es decir, modifico los valores de cada píxel individualmente, y claro, para imágenes grandes...
Sin embargo está claro que existen soluciones muchísimo más eficientes (por ejemplo, las operaciones gráficas que realiza el objeto Graphics en .NET).

En definitiva, me gustaría conocer la forma de hacer mis funciones gráficas más eficientes. Alguien puede echarme una mano?
Muchísimas gracias.

PD: Aquí pongo un ejemplo de una función sencillita para aplicar un mapa de opacidad a una imagen. Lo que cuenta es la idea y el procedimiento, no la función en sí.

Código VB:

''' <summary>
    ''' Aplica un mapa de opacidad a una imagen y la devuelve con
    ''' el canal alpha correspondiente a este mapa de opacidad
    ''' </summary>
    Public Function ApplyOpacityMap(ByVal DiffuseImage As Image, _
                                ByVal OpacityImage As Image) As Image
 
        Dim imgDiffuse As Bitmap = DiffuseImage.Clone
        Dim imgOpacity As Bitmap = OpacityImage.Clone
        Dim imgResult As New Bitmap(imgDiffuse.Width, imgDiffuse.Height)
        Dim NuevoColor As Color
 
        Dim PixelColor As Color
        Dim AlphaValue As Integer
 
        For Y = 0 To imgDiffuse.Height - 1
            For X = 0 To imgDiffuse.Width - 1
 
                'Se extrae el valor Alpha que tendrá el píxel a partir del mapa de opacidad
                PixelColor = imgOpacity.GetPixel(X, Y)
                AlphaValue = PixelColor.GetBrightness * 255
 
                'Se estrae el píxel del mapa difuso
                PixelColor = imgDiffuse.GetPixel(X, Y)
 
                NuevoColor = Color.FromArgb(AlphaValue, PixelColor.R, PixelColor.G, PixelColor.B)
                imgResult.SetPixel(X, Y, NuevoColor)
 
            Next
 
            Application.DoEvents()
 
        Next
 
        Return imgResult
 
    End Function
 

Saludos!!!