Asignar abreviatura de teclado a un formulario

[jhonnyfernando]

Bueno pues creo que tu quieres es que al presionar una combinacion de teclas se muestre un form que estas ejecutando en modo invisible.

Si es asi aqui esta el codigo.

Codigo del modulo.

Código:

Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Sub teclas()
    On Error Resume Next
    Dim control As Long
    Dim alt As Long
    Dim a As Long
    control = 17
    alt = 18
    a = 65
    'o las teclas que quieras
    If ((GetAsyncKeyState(control) <> 0) And (GetAsyncKeyState(alt) <> 0) And (GetAsyncKeyState(a) <> 0)) Then
        Form1.Show ' o lo que quiereas que haga
    End If
End Sub

codigo del form.

Código:

Private Sub Form_Load()
SetTimer Me.hwnd, 0, 1, AddressOf teclas
End Sub
Private Sub Form_Unload(Cancel As Integer)
KillTimer Me.hwnd, 0
End Sub

y listo.