Combine Colors

    Public Shared Function Mix2Colors(C1 As Color, C2 As Color) As Color
        Dim Colors As Integer() = New Integer() {C1.R, C2.R, C1.G, C2.G, C1.B, C2.B}
        Return Color.FromArgb(CInt((Colors(0) + Colors(1)) / 2), CInt((Colors(2) + Colors(3)) / 2), CInt((Colors(4) + Colors(5)) / 2))
    End Function

    Public Shared Function Mix3Colors(C1 As Color, C2 As Color, C3 As Color) As Color
        Dim Colors As Integer() = New Integer() {C1.R, C2.R, C3.R, C1.G, C2.G, C3.G, C1.B, C2.B, C3.B}
        Return Color.FromArgb(CInt((Colors(0) + Colors(1) + Colors(2)) / 3), CInt((Colors(3) + Colors(4) + Colors(5)) / 3), CInt((Colors(6) + Colors(7) + Colors(8)) / 3))
    End Function

    Public Shared Function Mix4Colors(C1 As Color, C2 As Color, C3 As Color, C4 As Color) As Color
        Dim Colors As Integer() = New Integer() {C1.R, C2.R, C3.R, C4.R, C1.G, C2.G, C3.G, C4.G, C1.B, C2.B, C3.B, C4.B}
        Return Color.FromArgb(CInt((Colors(0) + Colors(1) + Colors(2) + Colors(3)) / 4), CInt((Colors(4) + Colors(5) + Colors(6) + Colors(7)) / 4), CInt((Colors(8) + Colors(9) + Colors(10) + Colors(11)) / 4))
    End Function