 .pvData = m_cAlphaLogo.DIBSectionBitsPtr
            End With
            CopyMemory ByVal VarPtrArray(bImage()), VarPtr(tImage), 4
             
            If bImage(x * 4 + 3, y) &gt; 0 Then
               ' not an alpha area, register a hit:
               hitTest = True
            End If
             
            CopyMemory ByVal VarPtrArray(bImage), 0&amp;, 4
         End If
      End If
   End If
End Function

Public Sub MouseDown(ByVal Button As MouseButtonConstants, ByVal Shift As
 ShiftConstants