Draw circle color

'Calculating aditional colour
            If tempobject.mytype(0) = True And tempobject.mytype(1) = False Then 'green
                g = tempobject.size.G + 10
                'calcilate if blast is needed to reduce green to 255
                If g < 256 Then
                    tempobject.size.G = g
                Else
                    'blast
                End If
            ElseIf tempobject.mytype(0) = True And tempobject.mytype(1) = True Then 'blue
                b = tempobject.size.B + 10
                'calculate if blast is needed to reduce blue to 255
                If b < 256 Then
                    tempobject.size.B = b
                Else
                    'blast
                End If
            ElseIf tempobject.mytype(0) = False And tempobject.mytype(1) = True Then 'red
                r = tempobject.size.R + 10
                'calculate if blast is needed to reduce red to 255
                If r < 256 Then
                    tempobject.size.R = r
                Else
                    'blast
                End If
            End If
            DrawIt(tempobject)