' Konvertiert einen 16-Bit-PlayStation-Farbwert in einen 24-Bit BGR Farbwert
Public Function ConvertPlaystationColorToDisplayColor(psColor As Long)
    Dim ergebnis As Long
    Dim i As Long
 
    Dim faktor As Long
    faktor = 1
 
    For i = 0 To 2
        Dim wert As Long
        wert = Int(CDbl(psColor And &H1F) / 31# * 255#)
        psColor = psColor \ 32 '2^5
 
        ergebnis = ergebnis Or (wert * faktor)
        faktor = faktor * 256
    Next
 
    ConvertPlaystationColorToDisplayColor = ergebnis
End Function

    Dim farbe As Long
    farbe = &H3E0 'Grün: 0 00000 11111 00000 (GRÜN) G
    Dim displayFarbe As Long
    displayFarbe = ConvertPlaystationColorToDisplayColor(farbe)
    BackColor = displayFarbe 'Hintergrundfarbe der Form setzen
 
    Dim rot As Long, gruen As Long, blau As Long 'Einzelne RGB-Werte ermitteln
    rot = displayFarbe And &HFF
    gruen = (displayFarbe \ &H100) And &HFF
    blau = (displayFarbe \ &H10000) And &HFF