Private Function GetBlackPixel(ByVal bmp As Bitmap) As Long(,)
  Dim x,y As Long
  Dim Res(bmp.Width * bmp.Height,2) As Long
  Dim Cnt As Long = 0
  For x = 0 to bmp.Width - 1
    For y = 0 to bmp.Height - 1
      If bmp.getPixel(x,y).ToArgb() = Color.Black.ToArgb() Then
        Res(Cnt,0) = x
        Res(Cnt,1) = y
        Cnt += 1
      End If
    Next
  Next
  Dim Cnts As Long
  Dim i() As Long
  For Each i In Res
    if i(0) = Nothing And i(1) = Nothing Then
      Cnts += 1
    End If
  Next
  Dim R(Cnts,2) As Long
  Dim S As Long
  For s = 0 To Cnts - 1
    R(s) = Res(s)
  Next
  Return(R)
End Function