OpenCV関係(VB2005)

'答えボタン押下時
Private Sub Btn_Find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Find.Click

    '状態チェック
    If Pic_Image.Image Is Nothing Then Exit Sub
    If Pic_Template.Image Is Nothing Then Exit Sub

    '問題のイメージ取得
    Dim qimg As New IplImageWrapper(CType(Pic_Image.Image, Bitmap)) 　　　　'問題イメージ
    Dim timg As New IplImageWrapper(CType(Pic_Template.Image, Bitmap)) 　　'テンプレートイメージ

    '検索
    Dim pnt As Point
    pnt = TemplateMatching(qimg, timg)

    '答えの位置に赤丸描画
    Dim g As Graphics = Graphics.FromImage(Pic_Image.Image)
    Dim pn As New Pen(Color.Red, 4)
    g.DrawEllipse(pn, pnt.X - CHARSIZE \ 2, pnt.Y - CHARSIZE \ 2, CHARSIZE * 2, CHARSIZE * 2)
    g.Dispose()
    pn.Dispose()
    Pic_Image.Refresh()

End Sub

'----------------------------------------------------------
'検索
Private Function TemplateMatching(ByVal Img As IplImageWrapper, ByVal Template As IplImageWrapper) As Point

    'グレイスケールイメージ取得
    Dim imggry As IntPtr = cvCreateImage(Img.CvSize, IPL_DEPTH_8U, 1)
    cvCvtColor(Img.Ptr, imggry, CV_BGR2GRAY)
    Dim tmpgry As IntPtr = cvCreateImage(Template.CvSize, IPL_DEPTH_8U, 1)
    cvCvtColor(Template.Ptr, tmpgry, CV_BGR2GRAY)

    'テンプレートマッチングの結果を格納する領域を作成
    Dim sz As New CvSize(Img.Size.Width - Template.Size.Width + 1, Img.Size.Height - Template.Size.Height + 1)
    Dim result As IntPtr = cvCreateImage(sz, IPL_DEPTH_32F, 1)

    'テンプレートマッチング実行
    cvMatchTemplate(imggry, tmpgry, result, CV_TM_SQDIFF)
    'cvMatchTemplate(Img.Ptr, Template.Ptr, result, CV_TM_SQDIFF)

    '最も一致する位置を取得
    Dim min_val, max_val As Double
    Dim min_loc, max_loc As CvPoint
    cvMinMaxLoc(result, min_val, max_val, min_loc, max_loc, IntPtr.Zero)
    Return New Point(min_loc.x, min_loc.y)

End Function