苦苦追索多日无果 恳请迷津 请求高手修改下VBA能实现的全局钩子

苦苦追索多日无果 恳请高手指点迷津 请求高手修改下VBA能实现的全局钩子！！我好想知道答案啊！！现在心情特别焦急，偏执型精神病又犯了…..找了好多代码，无奈本人水平有限未能看的个明了，贴出三段代码，恳求高手帮忙修改下代码，小生不胜感谢！！以下三段是某些好心人的代码，我稍稍修改了，但是无法实现键盘钩子：代码1：’用VB实现的全局键盘钩子’2010-04-0613:30’代码功能：实时监测CapsLock、NumLock、ScrollLock三个按件的状态，’并显示在Label1Label2Label3三个标签中’.bas模块中Publicm_hDllKbdHookAsLong’publicvariableholding’thehandletothehookprocedurePublicConstWH_KEYBOARD_LLAsLong=13’enablesmonitoringofkeyboard’inputeventsabouttobeposted’inathreadinputqueuePrivateConstHC_ACTIONAsLong=0’wParamandlParamparameters’containinformationabouta’keyboardmessagePublicConstVK_CAPITALAsLong=&H14PublicConstVK_NUMLOCKAsLong=&H90PublicConstVK_SCROLLAsLong=&H91PrivateConstLLKHF_UPAsLong=&H80&’testthetransition-stateflagPublicTypeKeyboardByteskbByte(0To255)AsByteEndTypePrivateTypeKBDLLHOOKSTRUCTvkCodeAsLong’avirtual-keycodeintherange1to254scanCodeAsLong’hardwarescancodeforthekeyflagsAsLong’specifiestheextended-keyflag,’event-injectedflag,contextcode,’andtransition-stateflagtimeAsLong’timestampforthismessagedwExtraInfoAsLong’extrainfoassociatedwiththemessage然后拍一些美得想哭的照片，留给老年的自己。