Option Explicit
Private Declare Function SystemParametersInfo Lib "use32" Alias "SystemparametersInfoA" ()
(ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam as Any,
ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
Dim myval As Long
myval = SystemParametersInfo(97, True, CStr(1), 0)
End Sub

Private Sub Text1_keydown(keycode As Integer, shift As Integer)
If Text1.Text = "12345" And keycode = vbKeyReturn Then
Dim myval As Long
myval = SystemParametersInfo(97, False, CStr(1), 0)
End
End If

End Sub



以上前几段的通用的声明不知道错在哪里了...好象（）有问题，但是去掉又显示Byval有错误...我这个是要编写给系统锁个密码的软件,哪位大侠帮看看出错在哪里了啊！！不甚感激！