a = WaitClick //等待点击If a = 32769 Then //如果点击是左键“放入你要执行的代码”End If如果在等待按键期间你还点其他按键，就用下边的doa = WaitClick //等待点击If a = 32769 Then //如果点击是左键“放入你要执行的代码”Exit do //退出Do循环End Ifloop
