' Palette auslesen
                            Dim ConvBMPPal As  _
                                ColorPalette = ConvBmp.Palette
 
                            ' DIB-Palette umkopieren
                            For lngItem As Integer = _
                                0 To ConvBMPPal.Entries.Length - 1
 
                                ConvBMPPal.Entries(lngItem) = _
                                Color.FromArgb(255, _
                                tBITMAPINFO.bmiColors(lngItem).rgbRed, _
                                tBITMAPINFO.bmiColors(lngItem).rgbGreen, _
                                tBITMAPINFO.bmiColors(lngItem).rgbBlue)
 
                            Next
 
                            ' geänderte Palette zurück schreiben
                            ConvBmp.Palette = ConvBMPPal
 
                        End If
 
                    End If
 
                    ' DeviceContext freigeben
                    Call ReleaseDC(DeskHwndPtr, DeskDcPtr)
 
                End If
 
            End If
 
        End If
 
        ' Kopie löschen
        OrgBmp.Dispose()
 
        ' konvertierte Bitmap zurückgeben
        Return ConvBmp
 
    End Function

If GetObjectA(OrgBmp.GetHbitmap, Len(tBitmap), tBitmap) <> 0 Then