急切求救！

Question

1)加引号,例如:
      If InStr(sTheFile, " ") Then sTheFile = Chr(34) & sTheFile & Chr(34)
    nReturn = mciSendString("Open " & sTheFile & " ALIAS " & sAlias _
            & " TYPE " & sType & " wait", "", 0, 0)
2)
'得到当前播放文件总共播放时间长度
Property Get Length() As Single
   ' Routine to return the length of the currently opened multimedia file   ' Declare a variable to hold the return value from the mciSendString
   Dim nReturn As Long, nLength As Integer   ' Declare a string to hold the returned length from the mci Status call
   Dim sLength As String * 255
    
   ' If there is no file open then return 0
   If sAlias = "" Then
      Length = 0
      Exit Property
   End If
  'sAlias是文件的别名,自己随便定义
  nReturn = mciSendString("Status " & sAlias & " length", sLength, 255, 0)
  nLength = InStr(sLength, Chr$(0))
  Length = Val(Left$(sLength, nLength - 1))
End Property
'得到当前位置
Property Get Status() As String
   ' Returns the playback/record status of the current file   ' Declare a variable to hold the return value from mciSendString
   Dim nReturn As Integer, nLength As Integer
    
   ' Declare a variable to hold the return string from mciSendString
   Dim sStatus As String * 255
    
   ' If there is no file currently opened, then exit the subroutine
   If sAlias = "" Then Exit Property   nReturn = mciSendString("Status " & sAlias & " mode", sStatus, 255, 0)
    
   nLength = InStr(sStatus, Chr$(0))
   Status = Left$(sStatus, nLength - 1)
    
End Property
3)
http://www.csdn.net/visual%20basic/index.htm
audio.zip 4K 改变计算机的音量