 bImage(x + 2, y), h, s, l
            If (l &gt; luminance) Then luminance = l
            HLSToRGB hue, saturation, l, r, g, b
            bDisabled(x + 2, y) = r
            bDisabled(x + 1, y) = g
            bDisabled(x, y) = b
         Next y
      Next x
       
      CopyMemory ByVal VarPtrArray(bImage), 0&amp;, 4
   
End Sub
Public Function hitTest(ByVal x As Single, ByVal y As Single) As Boolean
   If m_bEnabled Then
      x = x + 1
      y = y + 1
      If (x &gt;= 0 And x &lt;= m_cAlphaLogo.Widt