帮忙看看这句话有什么问题

[youngcave]

Private Declare Function validateRectAsAny Lib "user32" Alias
"InvalidateRect"_ (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long
运行时说我缺少字符串常量,怎么回事,光标停在ALIAS后面

[huangjianyou]

Private Declare Function validateRectAsAny Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long

换行符去掉，要正确加换行符。
^_^

[youngcave]

Private Sub Timer1_Timer()
'两秒钟后恢复桌面
InvalidateRectAsAny 0, ByVal 0&, True
Load Form1
Timer1.Enabled = False

这句呢,提示说InvalidateRectAsAny未定义

[viena]

晕~

[viena]

晕~

[youngcave]

楼上想说什么

[Zygodactyous]

1、是InvalidateRectAsAny，还是validateRectAsAny
2、在调用函数时，参数中是不用加ByVal 的。

[QQ576006]

Private Declare Function validateRectAsAny Lib "user32" Alias
"InvalidateRect"_ (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long
应该是"_"造成的。_是代表换行，需要换行的时候在行未以“ _”为结尾，则VB编译器会把下一行，则有“ _”结尾的行看成一个语句

[QQ576006]

调用函数要用：validateRectAsAny

[youngcave]

改成validateRectAsAny没出错,可是运行后没反应.......
源码这里发不了,发在这了
http://bbs.game5i.com/dispbbs.asp?boardid=76&id=235548&star=#1126262
是一个启动画面

帮着看看问题出在哪啊