一看很明了
Sub Command1_Click()
'N * ref: __vbaExceptHandler
'N * ref: __vbaOnError
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaObjSet
'N * ref: "Regist Ok! "
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaObjSet
'N * ref: "请输入注册码"
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: "432255554569444855345741161533518549271455419105491184976533453"
'N * ref: __vbaVarCopy
'N * ref: "fef"
'N * ref: "fef"
'N * ref: __vbaStrCmp
'N * ref: "ar"
'N * ref: "ry"
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaLenBstr
'N * ref: __vbaVarForInit
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeObj
'N * ref: __vbaVarMove
'N * ref: __vbaVarCat
'N * ref: __vbaVarMod
'N * ref: __vbaVarTstEq
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaI4Var
'N * ref: Mid$(
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaI4Var
'N * ref: Mid$(
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeObj
'N * ref: __vbaFreeVarList
'N * ref: __vbaVarForNext
'N * ref: __vbaVarCopy
'N * ref: __vbaLenVar
'N * ref: __vbaVarForInit
'N * ref: __vbaI4Var
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaStrMove
'N * ref: Asc(
'N * ref: Str$(
'N * ref: __vbaStrMove
'N * ref: LTrim$(
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeVarList
'N * ref: "45"
'N * ref: "156"
'N * ref: __vbaVarSub
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeVar
'N * ref: __vbaVarForNext
'N * ref: __vbaVarForInit
'N * ref: __vbaI4Var
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaStrMove
'N * ref: Asc(
'N * ref: __vbaVarAdd
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeVar
'N * ref: __vbaVarForNext
'N * ref: __vbaVarMul
'N * ref: __vbaVarMul
'N * ref: __vbaVarDiv
'N * ref: Str$(
'N * ref: __vbaStrMove
'N * ref: LTrim$(
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeVar
'N * ref: __vbaVarTstGt
'N * ref: __vbaVarSub
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeVar
'N * ref: __vbaVarDiv
'N * ref: __vbaVarFix
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeVar
'N * ref: __vbaVarCopy
'N * ref: __vbaVarForInit
'N * ref: __vbaI4Var
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaStrMove
'N * ref: Asc(
'N * ref: Str$(
'N * ref: __vbaStrMove
'N * ref: LTrim$(
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeVarList
'N * ref: __vbaVarSub
'N * ref: __vbaVarAdd
'N * ref: Str$(
'N * ref: __vbaStrMove
'N * ref: LTrim$(
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeVarList
'N * ref: Str$(
'N * ref: __vbaStrMove
'N * ref: LTrim$(
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeVarList
'N * ref: __vbaVarForNext
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaVarAdd
'N * ref: __vbaI4Var
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeVarList
'N * ref: __vbaVarAdd
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaVarAdd
'N * ref: __vbaI4Var
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeVarList
'N * ref: __vbaVarForInit
'N * ref: __vbaVarMod
'N * ref: __vbaVarTstEq
'N * ref: __vbaI4Var
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeVarList
'N * ref: __vbaVarForNext
'N * ref: "7"
'N * ref: "-"
'N * ref: __vbaStrVarVal
'N * ref: Replace(
'N * ref: __vbaStrMove
'N * ref: "4"
'N * ref: "."
'N * ref: __vbaStrMove
'N * ref: Replace(
'N * ref: __vbaFreeStrList
'N * ref: __vbaVarDiv
'N * ref: __vbaVarFix
'N * ref: __vbaVarDiv
'N * ref: __vbaVarFix
'N * ref: __vbaI4Var
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeVar
'N * ref: __vbaVarForInit
'N * ref: __vbaI4Var
'N * ref: __vbaStrVarVal
'N * ref: Mid$(
'N * ref: __vbaStrMove
'N * ref: Asc(
'N * ref: Str$(
'N * ref: LTrim$(
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeVarList
'N * ref: __vbaVarForNext
'N * ref: __vbaVarMove
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaLenBstr
'N * ref: "123"
'N * ref: __vbaVarCat
'N * ref: __vbaLenVar
'N * ref: __vbaVarSub
'N * ref: __vbaVarTstEq
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeObj
'N * ref: __vbaFreeVar
'N * ref: __vbaVarMove
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaLenBstr
'N * ref: __vbaVarForInit
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeObj
'N * ref: Mid$(
'N * ref: __vbaI4Var
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaStrVarVal
'N * ref: __vbaStrMove
'N * ref: Asc(
'N * ref: __vbaStrMove
'N * ref: Asc(
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeObj
'N * ref: __vbaFreeVarList
'N * ref: __vbaVarForNext
'N * ref: __vbaVarMove
'N * ref: __vbaBoolVarNull
'N * ref: __vbaObjSet
'N * ref: "注册成功"
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaExitProc
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeObj
'N * ref: __vbaFreeVarList
'N * ref: __vbaFreeVarList
'N * ref: __vbaFreeVar
'N * ref: __vbaErrorOverflow
End Sub
Sub Timer1_Timer()
'N * ref: __vbaExceptHandler
'N * ref: __vbaObjSet
'N * ref: "注册成功"
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeObj
'N * ref: __vbaFreeObj
End Sub