RE:Reconocimiento del habla
Te anexo algo que encontre
Private Sub Form_Load()
Dim totaldata As String
'define configuration
'[Grammer], set language to english (1033)
'[<Start>], define the words we are looking for
totaldata = "[Grammar]" & vbCrLf & _
"langid = 1033" & vbCrLf & _
"type=cfg" & vbCrLf & _
"[<Start>]" & vbCrLf & _
"<start>=Notepad" & vbCrLf & _
"<start>=Volume" & vbCrLf & _
"<start>=Media Player" & vbCrLf
DirectSR1.GrammarFromString (totaldata)
DirectSR1.Activate
Inserta el siguiente codigo en el procedimiento Phrase Phrase
Dim sFile As String
Dim noth As Long
Select Case Phrase
Case "Notepad"
sFile = "\system32\notepad.exe"
noth = ShellExecute(0, "OPEN", Environ("SystemRoot") & sFile, "", "", 1)
Case "Volume"
sFile = "\system32\sndvol32.exe"
noth = ShellExecute(0, "OPEN", Environ("SystemRoot") & sFile, "", "", 1)
Case "Media Player:
sFile = "C:\Program Files\Windows Media Player\mplayer2.exe"
noth = ShellExecute(0, "OPEN", sFile, "", "", 1)
End Select
Esto solo es una parte la liga donde puedes encontrar mayor info es
http://www.developerfusion.co.uk/show/1598/4/
Suerte...