Bloquear botones en PPC Toshiba E740

Hola Carmen

Aqui Va como hacerlo:
Imports System.Runtime.InteropServices
Imports System.Reflection

' -

'Para Desactivar los Botones

Public Const Key1 = 193 'Hoy

Public Const Key2 = 194 'Contactos

Public Const Key3 = 195 'Calendario

Public Const Key4 = 196 'Tareas

Public Const Key5 = 197 'Grabacion

Declare Function SHSetAppKeyWndAssoc Lib "aygshell" (ByVal bVk As Byte,
ByVal hWnd As IntPtr) As Boolean

' -


'Asociar las teclas al frm que se esta cargando

'de esta forma se elimina su función fuera de la aplicación

Dim hkey As Byte

Me.Capture = True

Dim hWnd As IntPtr = GetCapture()

Me.Capture = False

For hkey = Key1 To Key5

Try

SHSetAppKeyWndAssoc(hkey, hWnd)

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

Next

Saludos

Roberto Alvarado
Bogota - Colombia

"Carmen" escribió en el mensaje
news:

Alguien ha logrado bloquear los botones de una Toshiba E740?... Necesito
bloquearlos para que el usuario no salga de la aplicacion mientras la esta
usando.

Gracias