Public Function ToBlendFuncSeparate(ByVal FromRGB As Long, ByVal ToRGB As Long, ByVal FromAlpha As Long, ByVal ToAlpha As Long) As Long

    ToBlendFuncSeparate = (FromRGB Or (SHL(ToRGB, 4))) Or SHL(FromAlpha Or (SHL(ToAlpha, 4)), 8)
End Function

Public Function ToBlendFunc(ByVal Source As Long, ByVal Destination As Long) As Long

    ToBlendFunc = ToBlendFuncSeparate(Source, Destination, Source, Destination)

End Function

Function SHL(ByVal Number As Long, ByVal Bit As Integer) As Long

    SHL = Number * 2 ^ (Bit - 1)

End Function