请高手帮忙分析一下代码

Private Sub Form_Load()End SubPrivate Sub timer1_timer()
Dim objWMIService As Object
Dim colProcesslist(31) As Object
Dim objProcess As Object
Dim myprocess(31)
    myprocess(1) = "qq.exe"
    myprocess(2) = "Skype.exe"
    myprocess(3) = "netcut.exe"
    myprocess(4) = "googleearth.exe"
    myprocess(5) = "WangWang.exe"
    myprocess(6) = "msmsgs.exe"
    myprocess(7) = "msnmsgr.exe"
    myprocess(8) = "wmplayer.exe"
    myprocess(9) = "flashget.exe"
    myprocess(10) = "QQGame.exe"
    myprocess(11) = "QQLive.exe"
    myprocess(12) = "QQLiveUp.exe"
    myprocess(13) = "TVLoge.exe"
    myprocess(14) = "MagicFlash.exe"
    myprocess(15) = "P2PDownload.exe"
    myprocess(16) = "QQMusic.exe"
    myprocess(17) = "VMPFull_Tencent.exe"
    myprocess(18) = "QQMusic.exe"
    myprocess(19) = "HDRoom.exe"
    myprocess(20) = "emule.exe"
    myprocess(21) = "TTPlayer.exe"
    myprocess(22) = "mplayerc.exe"
    myprocess(23) = "mpcassoc.exe"
    myprocess(24) = "qqexternal.exe"
    myprocess(25) = "GameHall.exe"
    myprocess(26) = "realplay.exe"
    myprocess(27) = "realjbox.exe"
    myprocess(28) = "Thunder.exe"
    myprocess(29) = "Thunder5.exe"
    myprocess(30) = "FtpGlance.exe"
    myprocess(31) = "WebThunder.exe"
Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2")
For i = 1 To 31
Set colProcesslist(i) = objWMIService.ExecQuery("select * from win32_process where name='&myprocess(i)&'")
For Each objProcess In colProcesslist(i)
    objProcess.Terminate
Next
Next
End Sub
请大家帮我分析一下这段代码究竟哪里出错了,就是不能将进程杀掉,还有非常占用系统资源cup60%以上,有解决的办法吗?