'   //  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 Sub lIsNegative(ByRef lVal As Long)
    '   //  Para cualquier valor que lVal pueda tomar.
    '   //  Comprueba si lval es negativo.
    lIsNegative = (lVal And &H80000000)
End Sub
 
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 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