Private Declare Function RegisterHotKey Lib "User32" (ByVal hWnd As Long, ByVal IDHOT As Integer, ByVal MOD_ALT As Integer, ByVal VK_SNAPSHOT As Integer) As Boolean
'Private Declare Function UnregisterHotKey Lib "User32" (ByVal hWnd As Long, ByVal IDHOT As Integer)
Const IDHOT_SNAPDESKTOP = -2
Const IDHOT_SNAPWINDOW = -1
Const MOD_ALT = &H1
Const VK_SNAPSHOT = &H2C
Call RegisterHotKey(Me.hWnd, IDHOT_SNAPDESKTOP, 0, VK_SNAPSHOT)
Call RegisterHotKey(Me.hWnd, IDHOT_SNAPWINDOW, MOD_ALT, VK_SNAPSHOT)
|