'   //  Para valores tipo Long
Private Sub lSwap(ByRef lVal1 As Long, ByRef lVal2 As Long)
    '   //  Intercambia {lVal1} por {lVal2} y {lVal2} a {lVal1} sin variable temporal
    lVal1 = lVal1 Xor lVal2
    lVal2 = lVal2 Xor lVal1
    lVal1 = lVal1 Xor lVal2
End Sub
Private Function lIsNegative(ByRef lVal As Long)
    '   //  Para cualquier valor que lVal pueda tomar.
    '   //  Comprueba si lval es negativo.
    lIsNegative = (lVal And &H80000000)
End Function 
 
Private Function iIsNegative(ByRef iVal As Integer) As Boolean
    '   //  Para cualquier valor que iVal pueda tomar.
    '   //  Comprueba si lval es negativo.
    iIsNegative = (iVal And 32768)
End Function
 
Private Sub iSwap(ByRef iVal1 As Integer, ByRef iVal2 As Integer)
    '   //  Intercambia {iVal1} por {iVal2} y {iVal2} a {iVal1} sin variable temporal
    iVal1 = iVal1 Xor iVal2
    iVal2 = iVal2 Xor iVal1
    iVal1 = iVal1 Xor iVal2
End Sub
 
Private Sub bSwap(ByRef iVal1 As byte, ByRef iVal2 As byte)
    '   //  Intercambia {iVal1} por {iVal2} y {iVal2} a {iVal1} sin variable temporal
    iVal1 = iVal1 Xor iVal2
    iVal2 = iVal2 Xor iVal1
    iVal1 = iVal1 Xor iVal2
End Sub
 
Function max(ByVal val1 As Long, ByVal val2 As Long) As Long
    If (val1 > val2) Then
        max = val1
    Else
        max = val2
    End If
End Function
 
Function min(ByVal val1 As Long, ByVal val2 As Long) As Long
    If (val1 > val2) Then
        min = val2
    Else
        min = val1
    End If
End Function
 
Function bSwapBit(ByVal myLong As Long, ByVal bit1 As Byte, ByVal bit2 As Byte) As Long
'   Los bits se CUENTAS DE DERECHA A IZQUIERDA es decir:    31, 30, ... , 3, 2, 1, 0
'   Solo se admite rango 0 al 31.
Dim aux As Long
Dim mask As Long
 
    aux = max(bit1, bit2)
    bit2 = min(bit1, bit2)
    bit1 = aux  '   max
    Debug.Assert (bit1 > 31)    '   No se permiten numero mayores a 32
    Debug.Assert (bit2 < 0)     '   No se permiten valores negativos
    mask = Not ((2 ^ bit1) Or (2 ^ bit2))
    aux = (2 ^ (bit1 - bit2))
    bSwapBit = (myLong And mask) Or _
               (myLong And (2 ^ bit1)) / aux Or _
               (myLong And (2 ^ bit2)) * aux
End Function
 
 

 
Private Sub lChangeSign(ByRef lVal As Long)
    '   //  Para cualquier valor que lVal pueda tomar.
    '   //  Cambia de signo a un numero( + a - y de - a +).
    lVal = ((Not lVal) + 1)
End Sub
'   //  Para valores tipo Integer
Private Sub iChangeSign(ByRef iVal As Integer)
    '   //  Para cualquier valor que iVal pueda tomar.
    '   //  Cambia de signo a un numero( + a - y de - a +).
    lVal = ((Not lVal) + 1)
End Sub
 
 

 
msgbox typename(&HFF00&)
msgbox typename(&HFF00)
 
 

 
Function makelParam(ByVal L As Integer, ByVal U As Integer) As Long
   makelParam = L Or (U * &H10000)
End Function
 
 

 
Option Explicit
 
Private Function SumarColor(ByVal lColor As Long, ByVal AddColor As Long) As Long
Dim lRetColor           As Long
    If (lColor) Then
        If ((lColor And &HFF&) = &H0) Then
            lRetColor = (AddColor And &HFF&)
        ElseIf ((AddColor And &HFF&) = &H0) Then
            lRetColor = (lColor And &HFF&)
        Else
            lRetColor = (((lColor And &HFF&) + (AddColor And &HFF&)) \ 2)
        End If
 
        If ((lColor And &HFF00&) = &H0) Then
            lRetColor = (lRetColor Or (AddColor And &HFF00&))
        ElseIf ((AddColor And &HFF00&) = &H0) Then
            lRetColor = (lRetColor Or (lColor And &HFF00&))
        Else
            lRetColor = (lRetColor Or (((((lColor And &HFF00&) \ &H100&) + ((AddColor And &HFF00&) \ &H100&)) \ 2) * &H100&))
        End If
 
        If ((lColor And &HFF0000) = &H0) Then
            lRetColor = (lRetColor Or (AddColor And &HFF0000))
        ElseIf ((AddColor And &HFF0000) = &H0) Then
            lRetColor = (lRetColor Or (lColor And &HFF0000))
        Else
            lRetColor = (lRetColor Or (((((lColor And &HFF0000) \ &H10000) + ((AddColor And &HFF0000) \ &H10000)) \ 2) * &H10000))
        End If
 
        If ((lColor And &HFF000000) = &H0) Then
            lRetColor = (lRetColor Or (AddColor And &HFF000000))
        ElseIf ((AddColor And &HFF000000) = &H0) Then
            lRetColor = (lRetColor Or (lColor And &HFF000000))
        Else
            lRetColor = (lRetColor Or (((((lColor And &HFF000000) \ &H1000000) + ((AddColor And &HFF000000) \ &H1000000)) \ 2) * &H1000000))
        End If
    Else
        lRetColor = AddColor
    End If
    SumarColor = lRetColor
End Function
 
 

 
Private Sub Form_Load()
    Show
    BackColor = SumarColor(RGB(255, 0, 0), RGB(0, 255, 0))
    BackColor = SumarColor(BackColor, RGB(0, 0, 255))
    BackColor = SumarColor(BackColor, RGB(0, 25, 0))
    BackColor = SumarColor(BackColor, RGB(0, 25, 10))
    BackColor = SumarColor(BackColor, RGB(0, 1, 4))
    BackColor = SumarColor(BackColor, RGB(30, 0, 0))
End Sub