''' <summary>
    ''' Erzeugt ein neues Bild welches ein zweites Bild unter Herausrechnung 
    ' vom Hintergrund enthaelt.
    ''' </summary>
    ''' <param name="pImage">Ausgangsbild welches ergaenzt werden soll</param>
    ''' <param name="pAddOn">Zusatzbild welches hinzugefuegt werden soll</param>
    ''' <param name="pAddOnBackColor">Herauszurechnende Hintergrundfarbe vom 
    ' Zusatzbild</param>
    ''' <param name="pDistanceThresHold">Farbdifferenz ab wann ein Pixel vom 
    ' Zusatzbild als Hintergrund erkannt werden soll</param>
    ''' <param name="pOP1">Farbanteil, welcher vom Ausgangsbild pro Pixel in 
    ' das neue Pixel einfliessen soll. 0 = 0%, 1 = 100%</param>
    ''' <param name="pOP2">Farbanteil, welcher vom Zusatzbild pro Pixel in 
    ' das neue Pixel einfliesen soll. 0 = 0%, 1 = 100%</param>
    ''' <param name="pMergePoint">obere linke Ecke im Zielbild fuer das 
    ' Zufuegen vom Zusatzbild</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function Image2MergedImage( _
                          ByVal pImage As Image _
                        , ByVal pAddOn As Image _
                        , ByVal pAddOnBackColor As System.Drawing.Color _
                        , ByVal pDistanceThresHold As Single _
                        , ByVal pOP1 As Single _
                        , ByVal pOP2 As Single _
                        , ByVal pMergePoint As Point _
                          ) As Image
 
        ' ---------------------------------------------------------------------
        ' -------------------------------------------
        ' Lokale Groessen 
        ' ---------------------------------------------------------------------
        ' -------------------------------------------
 
        'Arbeitsbereich fuer das Zielbild 
        Dim l_Destination As Bitmap = New Bitmap(pImage)
 
        'Arbeitsbereich fuer den Bildzusatz 
        Dim l_AddOn As Bitmap = New Bitmap(pAddOn)
 
        'Ein Bildpunkt aus dem AddOn Teil 
        Dim l_AddOnPixel As System.Drawing.Color = Nothing
 
        'Normalisierte Hintergrundfarbe des AddOn Bilds   
        Dim l_AddOnNBackColor As NRGB = RGBtoNRGB(pAddOnBackColor)
 
        'ZielPixel, alter Wert 
        Dim l_DestinationPixelCurrent As System.Drawing.Color
 
        'ZielPixel, neuer Wert 
        Dim l_DestinationPixelNew As System.Drawing.Color
 
        'Zielpunkt x Koordinate 
        Dim l_DestinationX As Integer = 0
 
        'Zielpunkt y Koordinate 
        Dim l_DestinationY As Integer = 0
 
        'Groesse vom AddOn Bereich / ZeroBased  
        Dim l_AddOnSizeZeroBased As Size = New Size(pAddOn.Width - 1, _
          pAddOn.Height - 1)
 
        'Groesse vom DesinationBereich / Zerobased 
        Dim l_DestinationSizeZeroBased As Size = New Size(pImage.Width - 1, _
          pImage.Height - 1)