这段代码错在哪?关于soundplayer类的,该怎么解决

这段代码错在哪?关于soundplayer类的
Public   a11   As   New   SoundPlayer
        Private   Sub   Form1_Load(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   MyBase.Load
                a11.SoundLocation   =   "d:\tishi.wav "
                a11.Load()
                a11.Play()
        End   Sub
        Sub   a2()   Handles   a11.LoadCompleted

        End   Sub

结果在   sub   a2   中提示     Handles子句要求一个在包含类型或它的某个基类型中定义WithEvents变量   ,错在哪了?

[解决办法]
all定义错误
Public WithEvents a11 As SoundPlayer