Ciao a tutti!
Mi sono da poco iscritto a questo forum!

Vorrei mettere degli hotkeys nel mio programma, quindi se uno fa CTRL+Q ad es. gli chiude il prog. ALT+H gli fa qlcos altro ecc.
Ho cercato in google codici ma trovo una cosa ke però non riesco a modificare, ke È questa:
nel modulo:
codice:
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Long) As Long
Declare Function DefWindowProc Lib "user32" _
Alias "DefWindowProcA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Public Const WM_SETHOTKEY = &H32
Public Const WM_SHOWWINDOW = &H18
Public Const HK_ALT = 1024
Public Const HK_SHIFT = 256
Public Const HK_CONTROL = 512
nel form:
codice:
 Private Sub Form_Load()
Dim Success, HotKey
Me.WindowState = vbMinimized
HotKey = HK_CONTROL + Asc("Z")

'To change the hot key, change HK_CONTROL to either HK_ALT
'or HK_SHIFT (declared in the module), and then change the Z
'to whichever character you wish to have as your hot key
    
Success = SendMessage(Me.hwnd, WM_SETHOTKEY, HotKey, 0)

If Success <> 1 Then
MsgBox "You require an alternative hot key", vbOKOnly, _
"Hot Key Error"
End If
Success = DefWindowProc(Me.hwnd, WM_SHOWWINDOW, 0, 0)
End Sub
Nel form (ke all'avvio viene minimizzato) quando si schiaccia CTRL+Z viene mostrato. Io non riesco a fargli fare qlcos altro e nn capisco nemmeno dove sta il codice ke gli dice di mostrarsi!

Spero ke qlcuno mi sa dare una mano!

Grazie mille
yuvi