>With Thisform > Local laDig1, laDig2 > Dimension laDig1[.oleCaptura.MinutiaeSize] As Byte > Dimension laDig2[.oleCaptura.MinutiaeSize] As Byte > If .oleCaptura.LiveCapture(6000,50) > Do While Not .oleCaptura.IsCaptured > Enddo > Comarray(.oleCaptura,10) > If .oleCaptura.GetMinutiaeData(@laDig1) > Thisform.oleCaptura.Clear() > If .oleCaptura.LiveCapture(6000,50) > Do While Not .oleCaptura.IsCaptured > Enddo > Comarray(.oleCaptura,10) > If .oleCaptura.GetMinutiaeData(@laDig2) > Comarray(.oleCaptura,10) > Messagebox(.oleVerifica.GetMatchingScore(laDig1, laDig2),64,"Score") && Always returns 0, value must be greater than 100! > Comarray(.oleCaptura,10) > If .oleVerifica.Register(laDig1, laDig2) && Return invalid parameter error > Else > Messagebox(.oleVerifica.ErrorString,16,"Erro 1") > Endif > Else > Messagebox(.oleCaptura.ErrorString,16,"Erro 2") > Endif > Else > Messagebox(.oleCaptura.ErrorString,16,"Erro 3") > Endif > Else > Messagebox(.oleCaptura.ErrorString,16,"Erro 4") > Endif > Else > Messagebox(.oleCaptura.ErrorString,16,"Erro 5") > Endif > Comarray(.oleCaptura) >Endwith >