这个是怎么回事那？

我现在用MMControl1做个播放器，想用ＡＰＩ控制声道，可是就是实现不了！说是找不到数据成员，怎么改那！代码如下：
Option ExplicitConst MMSYSERR_NOERROR = 0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_PURGE = &H40
Const SND_FILENAME = &H20000
Dim MyVolume As clsVolume
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As LongDim sAliasName As String
Dim FlagSlide As Boolean, FlagNext As Boolean
Dim XSlide As Single, FileLength As Long
Dim NoSound As Button
Private Sub Lefts_Click()
  
  If Not NoSound.Checked Then　　　这行的错误！！
    Lefts.Checked = True
    Rights.Checked = False
    Audio.Checked = False
    mciSendString "set " & sAliasName & " audio left on", vbNullString, 0, 0
    mciSendString "set " & sAliasName & " audio right off", vbNullString, 0, 0
    'mciExecute "set " & sAliasName & " channels 1"
  End If
End Sub