Private Sub Configurerecognizer_new
Dim Setup As JavaObject
Setup.InitializeStatic("edu.cmu.pocketsphinx.SpeechRecognizerSetup")
mRecognizer = Setup.RunMethodJO("defaultSetup",Null) _
.RunMethodJO("setAcousticModel",Array(JavaFile(ModelsDir,"hmm/en-us-semi"))) _
.RunMethodJO("setDictionary",Array(JavaFile(ModelsDir,"dict/cmu07a.dic"))) _
.RunMethodJO("setRawLogDir",Array(JavaFile(rawdir,""))) _
.RunMethodJO("setKeywordThreshold",Array(Val)) _
.Runmethod("getRecognizer",Null)
Dim ModuleJO As JavaObject = mModule
mRecognizer.RunMethod("addKeyphraseSearch",Array(ModuleJO.GetField("_kws_search"), ModuleJO.GetField("_keyphrase_search")))
setup.InitializeStatic("mRecognizer")
End Sub