网上找到的VB语音识别程序

Option Explicit
Public WithEvents RC As SpSharedRecoContext
Public myGrammar As ISpeechRecoGrammar

Private Sub Form_Load()
Set RC = New SpSharedRecoContext
Set myGrammar = RC.CreateGrammar
'RC.Voice.GetVoices

myGrammar.CmdLoadFromFile App.Path & "/command.xml", SLODynamic
myGrammar.DictationSetState SGDSActive
End Sub

Private Sub RC_Recognition(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal Result As SpeechLib.ISpeechRecoResult)
Select Case Result.PhraseInfo.GetText
Case "上网"
Shell "C:/Program Files/Internet Explorer/IEXPLORE.EXE"
Case "开始"
Shell "D:/Program Files/Tencent/QQ/QQ.exe"
Case "音乐"
Shell "D:/Program Files/TTPlayer/TTPlayer.exe"
Case "下载"
Shell "D:/Program Files/Thunder Network/Thunder/Thunder.exe"
Case "BT下载"
Shell "D:/Program Files/BitComet/BitComet.exe"
'Case "重启"

'Case "关机"

Case Else
MsgBox "听不懂你说什么" & Result.PhraseInfo.GetText & "，再说一遍！"
End Select
End Sub