Dim sr As SpeechRecognizer
sr.Initialize("SpeechRecog")
Dim i As Intent
'Initialize intent through the constants of the API
i.Initialize("android.speech.action.RECOGNIZE_SPEECH", "")
i.PutExtra("android.speech.extra.LANGUAGE_MODEL", "free_form")
i.PutExtra("calling_package", "your package name")
i.PutExtra("android.speech.extra.MAX_RESULTS", 5)
i.PutExtra("android.speech.extra.LANGUAGE", "en-US")
sr.StartListening(sr.CreateRecognizeIntent2(i)) 'This will create a recognizer intent based on your custom one.