Bueno... encontre esto en
http://www.canalvisualbasic.net/Bloquear el Boton Inicio, Crtl + Tab y Ctrl + Alt + Supr Declarar en un Módulo lo siguiente:
Public 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
(Ojo, toda esta declaracion debe estar en una sola linea!!)
En el Evento Click del Form1 colocar lo siguiente:
Sub Form_Click()
Dim blnOld as Boolean
If MsgBox ("Desea Bloquear ahora?", vbInformation + vbYesNo, "Bloqueo") = vbYes then
SystemParametersInfo 97&, True, blnOld, 0&
Else
SystemParametersInfo 97&, False, blnOld, 0&
End If
End Sub
Espero que te sirva....
.:Gaby:.