程序代码：

  Private Sub btnVerify_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnVerify.Click
            Try
                For n As Integer = 0 To lbDatabase.Items.Count - 1
                    Dim taskResult As RunWorkerCompletedEventArgs = Neurotec.Gui.BusyForm.RunLongTask("Waiting for fingerprint ...", New DoWorkEventHandler(AddressOf doVerify), False, DirectCast(lbDatabase.Items(n), CData).EngineUser, New EventHandler(AddressOf CancelScanningHandler))
                    Dim verificationResult As VerificationResult = DirectCast(taskResult.Result, VerificationResult)
                    'create a template
                    If verificationResult.engineStatus = NffvStatus.TemplateCreated Then
                        If verificationResult.score > 0 Then
                            MessageBox.Show(String.Format("{0} verified." + Environment.NewLine + "Fingerprints match. Score: {1}", lbDatabase.Items(n), verificationResult.score))
                        Else
                            MessageBox.Show("not verify this user")

                        End If
                    End If
                Next

            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try


        End Sub