For m = 0 To picsel.ScaleWidth - 1
       m1 = m + k
       If Abs(ColorInteger2Grey(pic.Point(m1, l1)) - _
          ColorInteger2Grey(picsel.Point(m, l))) > 5 Then
              id = False: GoTo nextpos
       End If
    Next m

Private Function ColorInteger2Grey(ByVal col As Long) As Integer
 
   Dim rot&, gruen&, blau&, grau&
   rot = (col And vbRed)
   gruen = (col And vbGreen) \ &H100
   blau = (col And vbBlue) \ &H10000
   grau = (rot * 77 + gruen * 150 + blau * 28) / 255
 
   ColorInteger2Grey = CInt(grau)
 
End Function