ttp://iup.2ch-library.com/i/i0038800-1261115044.jpg
左の画像の(x,*)に何本の黒い線が通っているかというプログラムを作りたいと思ってます。
(右の画像の赤線が通る場所)

そこで、ネットで調べてまずは色判別のプログラムを組んでみたのですが、

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()

Dim Color As Long

Color = GetPixel(Form1.Picture1.hdc, 30, 30)
'試しに30,30のR値を出力するプログラムｊ

Dim R As Long
'色分解
R = Color Mod 256
Color = Color / 256

Text1.Text = R
End Sub

Text1.Textに0が出力されてしまうのですがどこか間違っているか教えていただけませんか