Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

Private Sub Form_Load()
'通过API函数调用 , 判断系统是否安装有声卡以及声卡驱动程序
Dim i As Integer
i = waveOutGetNumDevs()
If i <= 0 Then
MsgBox "系统无声卡或未装声卡驱动程序，请安装好以后再试...", "错误提示"
Unload Me
Else
'注册
Call VTxtAuto.VTxtAuto.Register(Space(10), Space(10)) ////-----错误1
End If
End Sub

Private Sub Command1_Click()
'开始朗读
Call VTxtAuto.VTxtAuto.Speak(Trim(Text1.Text), vtxtsp_VERYHIGH + vtxtst_READING)//////------错误2
End Sub

两处错误;