溢出异常 - 无法看到原因

Question

我有一个比较两种颜色的简单函数，每秒调用一次。因此，在20秒之后总会出现溢出异常。但我不知道为什么。我错过了什么？

以下是代码：

Public Function compareColor(color1 As Color, color2 As Color, range As Integer) As Boolean
    If color1.R - color2.R > range OrElse color2.R - color1.R > range Then
        Return False
    End If
    If color1.G - color2.G > range OrElse color2.G - color1.G > range Then
        Return False
    End If
    If color1.B - color2.B > range OrElse color2.B - color1.B > range Then
        Return False
    End If
    Return True
End Function

感谢您的帮助！