You can do something like this by using an API call.
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Sub Disablekeys()
SystemParametersInfo 97, true, CStr(1), 0
End Sub
Private Sub Disable_Click()
Disablekeys()
End Sub
Reputation Points: 25
Solved Threads: 18
Practically a Master Poster
Offline 645 posts
since Dec 2006