如何锁键盘？朋友请进！

Question

在Win98下是这么屏蔽的，
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long,
                              _ByVal uParam As Long, 
                              _lpvParam As Any, 
                              _ByVal fuWinIni As Long) As LongPrivate Const SPI_SCREENSAVERRUNNING = 97Private Sub Command1_Click()
  Dim ret As Integer
    Dim pOld As Boolean
    ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End Sub