C# と VB.NET の質問掲示板

こんばんは。ななしと申します。現在、VB2013を用いた画像処理について学習しています。
今回質問させて頂くのは、8近傍で輪郭を追跡するラベリングについてです。

http://imagingsolution.blog107.fc2.com/blog-entry-198.html

上記webページを参考にしてプログラムを作成してみたのですが、うまく行きません。
どこがおかしいのかわかる方がおられましたらご指摘頂けると幸いです。

Color.Black, Color.Redのみで描画された画像について、Color.Redのピクセルを発見したら、
そこから輪郭を追跡しラベル付けをするプログラムを作成したつもりです。
よろしくお願いいたします。


---以下ソースコード---

Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click

Dim i As Integer, j As Integer
Dim cColor As Color
Dim Label As Integer = 1
Dim bBitmap As New Bitmap(PictureBox2.Image)
Dim iArrayValue As Integer(,) = New Integer(PictureBox2.Image.Width - 1, PictureBox2.Image.Height - 1)

 For i = 0 To PictureBox2.Image.Width - 1
            For j = 0 To PictureBox2.Image.Height - 1

                cColor = bBitmap.GetPixel(i, j)                'ピクセルの色の取得
                'ピクセルの色の設定
                iArrayValue(i, j) = cColor.R
            Next
        Next

 For i = 0 To PictureBox2.Image.Width - 1
            For j = 0 To PictureBox2.Image.Height - 1
                If iArrayValue(i, j) = Color.Red.R Then
                    SetLabel2(iArrayValue, i, j, Label)
                    Label += 1
                End If
            Next
        Next

End Sub



Private Sub SetLabel2(ByRef iArray As Integer(,), iStartX As Integer, iStartY As Integer, iLabel As Integer)
        '変数の宣言iCount:設定ピクセル数 im,ip,jm,jp:走査基準位置の上下左右位置

        Dim i As Integer, j As Integer, iCount As Integer
        Dim im As Integer, ip As Integer, jm As Integer, jp As Integer
        Dim Vold As Integer, Vnew As Integer
        Dim vec As Integer
        '開始位置のラベルの設定
        iArray(iStartX, iStartY) = iLabel
        'ラベルの設定処理

        i = iStartX
        j = iStartY

        im = i - 1 'im値の設定
        ip = i + 1 'ip値の設定
        jm = j - 1 'jm値の設定
        jp = j + 1 'jp値の設定

        Do
            iCount = 0 '初期化
            'ラベルの設定

            Select Case vec
                Case 0
                    If iArray(im, jp) = Color.Red.R Then
                        iArray(im, jp) = iLabel
                        Vold = vec
                        Vnew = (Vold + 6) Mod 8
                        vec = Vnew
                        i = im
                        j = jp
                        iCount += 1
                        Exit Select
                    End If
                    vec += 1
                Case 1
                    If iArray(i, jp) = Color.Red.R Then
                        iArray(i, jp) = iLabel
                        Vold = vec
                        Vnew = (Vold + 6) Mod 8
                        vec = Vnew
                        i = i
                        j = jp
                        iCount += 1
                        Exit Select
                    End If
                    vec += 1
                Case 2
                    If iArray(ip, jp) = Color.Red.R Then
                        iArray(ip, jp) = iLabel
                        Vold = vec
                        Vnew = (Vold + 6) Mod 8
                        vec = Vnew
                        i = ip
                        j = jp
                        iCount += 1
                        Exit Select
                    End If
                    vec += 1
                Case 3
                    If iArray(ip, j) = Color.Red.R Then
                        iArray(ip, j) = iLabel
                        Vold = vec
                        Vnew = (Vold + 6) Mod 8
                        vec = Vnew
                        i = ip
                        j = j
                        iCount += 1
                        Exit Select
                    End If
                    vec += 1
                Case 4
                    If iArray(ip, jm) = Color.Red.R Then
                        iArray(ip, jm) = iLabel
                        Vold = vec
                        Vnew = (Vold + 6) Mod 8
                        vec = Vnew
                        i = ip
                        j = jm
                        iCount += 1
                        Exit Select
                    End If
                    vec += 1
                Case 5
                    If iArray(i, jm) = Color.Red.R Then
                        iArray(i, jm) = iLabel
                        Vold = vec
                        Vnew = (Vold + 6) Mod 8
                        vec = Vnew
                        i = i
                        j = jm
                        iCount += 1
                        Exit Select
                    End If
                    vec += 1
                Case 6
                    If iArray(im, jm) = Color.Red.R Then
                        iArray(im, jm) = iLabel
                        Vold = vec
                        Vnew = (Vold + 6) Mod 8
                        vec = Vnew
                        i = im
                        j = jm
                        iCount += 1
                        Exit Select
                    End If
                    vec += 1
                Case 7
                    If iArray(im, j) = Color.Red.R Then
                        iArray(im, j) = iLabel
                        Vold = vec
                        Vnew = (Vold + 6) Mod 8
                        vec = Vnew
                        i = im
                        j = j
                        iCount += 1
                        Exit Select
                    End If
                    vec = 0
            End Select
        Loop While iCount <> 0

    End Sub