给你一段源程序,需要自己编辑一个菜单,一个是"no",一个是"ky"，运行程序后,直接按键子就会有提示的。 
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 
    Private Declare Function SystemParametersInfo Lib "user32" _ 
    Alias "SystemParametersInfoA" (ByVal uAction As Long, _ 
    ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) _ 
    As Long 
    Const SPI_SCREENSAVERRUNNING = 97 
    Private Sub Hotkey() 
     '禁止热键 
     SystemParametersInfo SPI_SCREENSAVERRUNNING, True, ByVal 1&, 0 
    End Sub 
     
    Private Sub NoHotkey() 
    Dim ret As Integer 
    ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, ByVal 1&, 0) 
     '释放热键 
    End Sub 
     
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
    MsgBox "该键键值:" & KeyCode 
    End Sub 
     
    Private Sub ky_Click() '这是一个菜单命令. 
    NoHotkey 
    End Sub 
     
    Private Sub Label3_Click() 
    Call ShellExecute(Form1.hwnd, "Open", "mailto:xiaoyy1@21cn.com", "", App.Path, 1) 
    End Sub 
     
    Private Sub no_Click() '这也是一个菜单,不能用命令按钮. 
    Hotkey 
    End Sub 
<END>