处理系统热键

 

   Protected     Overrides     Function    ProcessCmdKey( ByRef    msg    As    System.Windows.Forms.Message,    ByVal    keyData    As    System.Windows.Forms.Keys)    As     Boolean    
                   Dim    WM_KEYDOWN    As     Integer     =     256       ' 可参考win32编程的文章   
                   Dim    WM_SYSKEYDOWN    As     Integer     =     260    
                   If    ((msg.Msg    =    WM_KEYDOWN)    Or    (msg.Msg    =    WM_SYSKEYDOWN))    Then    
                           Select     Case    keyData   
                                   Case    Keys.Alt    +    Keys.F4   
                                           MsgBox ( " ^_^   ！ " ,   ,    " Hehe " )   
                                           Return    ( True )   
                           End     Select    
                   End     If    
           End     Function