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
binoj_daniel
Practically a Master Poster
645 posts since Dec 2006
Reputation Points: 25
Solved Threads: 18