加急，请各位大侠倾情帮忙！我已没有分了，在下不胜感激

Question

Private Sub Form_Load()
   ' Play = True
  '初始化语音
  'Set Voice = New SpVoice
  MaxChannel = TV_Installed()
  If MaxChannel <= 0 Then
    MsgBox "驱动程序加载失败！"
    ''', MB_ICONSTOP, "自动拨号"
    End
  End If
  TV_Initialize
  panduanzhuangtai = 0
  Timer1.Enabled = True
  Playing = True
End Sub
Private Sub Timer1_Timer()
    path = "c:\VOICE\TVCALL.TW"
    path1 = "c:\VOICE\THANKS.TW"  '语音提示：按一请留言
    pathgk = "d:\wave\11.wav"
    liuyan2 = "c:\VOICE"
    pathjj = "c:\VOICE\jianjie.tw"
    
    Select Case panduanzhuangtai
        Case 0
            If TV_RingDetect(1) > 1 Then
            panduanzhuangtai = 1
            'Call LaidianID
          Else
            Text1.Text = "无信号音"
          End If
        Case 1
            Text1.Text = "通道" & 1 & "振铃"
            TV_OffHookCtrl (1)
            TV_FlushDTMF (1)
            If TV_StartPlayFile(1, path, 0, LONG_MAX) <> -1 Then
                Text1.Text = "通道" & 1 & "放音"
                panduanzhuangtai = 2
              Else
                Text1.Text = "放音失败2,重新放"
                panduanzhuangtai = 0
            End If
        Case 2
        '''''''''''''''''''''''''''
            If TV_PlayFileRest(1) <> -1 Then
                Text1.Text = "放音成功1"
                panduanzhuangtai = 2
            Else
                Text1.Text = "放音失败1，重新放音"
                panduanzhuangtai = 1
            End If
            'If TV_PlayFileRest(1) = 0 Then
                'Text1.Text = "放音成功1"
                'panduanzhuangtai = 1
            'End If
        '''''''''''''''''''''''''''''''''''''''''''''
            Text1.Text = "你好吗"
            DTMF = TV_GetDTMFChar(1)
            Select Case DTMF
                Case 49       ''1
                    Text1.Text = "按一查询学校简介"
                    TV_StopPlayFile (1)
                    TV_FlushDTMF (1)
                    If TV_StartPlayFile(1, path1, 0, LONG_MAX) <> -1 Then
                        Text1.Text = "通道" & 1 & "放音"
                        panduanzhuangtai = 11
                    Else
                        Text1.Text = "放音失败2"
                        panduanzhuangtai = 0
                    End If
             End Select
        Case 11
            If TV_PlayFileRest(1) <> -1 Then
                Text1.Text = "放音成功1"
                panduanzhuangtai = 11
            Else
                Text1.Text = "放音失败1，重新放音"
                panduanzhuangtai = 1
            End If
            
            Text1.Text = "欢迎查询学校简介,请继续查询"
            DTMF1 = TV_GetDTMFChar(1)
            Select Case DTMF1
                Case 49
                    Text1.Text = "按一查询学校概况"
                    TV_StopPlayFile (1)
                    TV_FlushDTMF (1)
                    If TV_StartPlayFile(1, path, 0, LONG_MAX) <> -1 Then
                        Text1.Text = "通道" & 1 & "放音"
                        panduanzhuangtai = 12
                    Else
                        Text1.Text = "放音失败2,重新放音"
                        panduanzhuangtai = 0
                    End If
                Case 50
                    Text1.Text = "按二查询校史，或校长致词"
                    TV_StopPlayFile (1)
                    panduanzhuangtai = 5
             End Select
        Case 12
            If TV_PlayFileRest(1) <> -1 Then
                Text1.Text = "放音循环"
                panduanzhuangtai = 12
            End If
            If TV_PlayFileRest(1) = 0 Then
                Text1.Text = "转入开始状态"
                panduanzhuangtai = 1
            End If
        Case Else
            
    End Select
End Sub一个关于语音卡程序的问题，不知哪步出错，请各位大侠指点，小女子不胜感激

Answer 1

我是个很蹩脚的……
TV_Initialize 这个SUB 呢？
看的不明不白……