火焰女神2中字:请高手帮我看个VB简单的语句,谢谢

来源:百度文库 编辑:高校问答 时间:2024/05/02 07:49:26
Private Declare Function ShowCursor Lib "user32" (By Val bShow As Long) As Long

那地方错了?应该怎么改呢?谢谢!

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Hide the cursor
ShowCursor 0
'Wait 10 seconds
t = Timer
Do: DoEvents: Loop Until Timer > t + 10
'Show the cursor
ShowCursor 1
End Sub

这是它的用法,你的By Val不应该分开,应该是ByVal