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

申し訳ありません、魔界の仮面弁士様への直接の質問です。OCR Vb6 でグーグルで検索すると魔界の仮面弁士様の
サンプルコードが沢山ひっかかってきます。

Private Sub ShowResult(ByVal Words As MODI.Words)
    Dim wd As MODI.Word
    Dim w As Integer
    For w = 0 To Words.Count - 1
        Set wd = Words(w)
        List1.AddItem CStr(w + 1) & ":" & wd.Text
        Dim r As MODI.MiRect
        For Each r In wd.Rects
            Dim s As String
            s = "(" & CStr(r.Left) & "," & CStr(r.Top) & ")-"
            s = s & "(" & CStr(r.Right) & "," & CStr(r.Bottom) & ")"
            List1.AddItem vbTab & s
        Next
    Next
End Sub

Private Sub Command1_Click()
    Command1.Enabled = False
    Set D = New MODI.Document
    D.Create Text1.Text
    Dim i As MODI.Image
    Set i = D.Images(0)
    Set Picture1.Picture = i.Picture
    Command2.Enabled = True
    hasCancelRequest = False
    On Error Resume Next
    i.OCR Combo1.ItemData(Combo1.ListIndex)
    If Err.Number <> 0 Then
        MsgBox "&H" & Hex(Err.Number) & Err.Description, vbExclamation, Err.Source
    Else
        If Not hasCancelRequest Then
            Me.Caption = App.EXEName
        End If
        Text2.Text = i.Layout.Text 'ここでvb6を道連れにクラッシュ
        ShowResult i.Layout.Words
    End If
    Command1.Enabled = True
    Command2.Enabled = False
End Sub

Document Imagingでは正しく文字を読み出せています。
そこで質問です。魔界の仮面弁士様の環境では正しくプログラムは動いていますか？？各種掲示板には｢動いた」という
レスが１つもないので途方に暮れています。