Extraído de la web del Guille (http://guille.costasol.net)

Con este ejemplo lo que se hará es asignar las teclas Ctrl+F para que al pulsa esa combinación de teclas, se active nuestra aplicación.
No he hecho pruebas con una aplicación real, pero todo será cuestión de hacerlo...

Para hacer la prueba, crea un nuevo proyecto y añade el siguiente código:
'------------------------------------------------------------------
'Prueba para registrar una combinación de teclas (06/Dic/98)
'y activar la aplicación al recibirlas...
'
'El código para esperar a que se reciban los mensajes, está
'inspirado en el código de Francisco Charte para usar Drag&Drop
'con el VB4
'
'©Guillermo 'guille' Som, 1998
'------------------------------------------------------------------
Option Explicit

Private Declare Function RegisterHotKey Lib "user32" _
        (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As long) As Long

Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long

Private Const MOD_ALT = &H1
Private Const MOD_CONTROL = &H2
Private Const MOD_SHIFT = &H4

Private Const WM_HOTKEY = &H312

'Tipos de datos para las funciones del API
Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Type Msg
    hWnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type 'MSG

Private Const PM_REMOVE = &H1

'funciones para recibir los mensajes de windows
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" _
        (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, _
         ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long

Private Termina As Boolean


Private Sub ProcesaMensajes()
    'Para leer mensajes de la cola
    Dim Mensaje As Msg

    'Mientras Termina no sea True
    Do While Not Termina
        'esperamos a que llegue un mensaje
        WaitMessage
        'Si ese mensaje es WM_HOTKEY
        If PeekMessage(Mensaje, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
            'Restauramos el formulario al estado normal
            'por si está minimizado
            WindowState = vbNormal
            'Mostramos el form
            Show
        End If
        'permitimos el trabajo de otros procesos
        DoEvents
    Loop
End Sub

Private Sub Form_Load()
    'registrar las teclas para activación de esta aplicación
    Dim ret As Long

    Termina = False

    'La tecla Crtl+F será la que activará este formulario
    ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_CONTROL, vbKeyF)
    'If ret Then
    ' Label2 = "Se ha registrado de forma correcta el Hot-Key"
    'Else
    ' Label2 = "No se ha registrado el Hot-Key"
    'End If

    'Hay que mostrar el form
    'sino entrará en el bucle de espera de mensajes sin mostrarse
    Show
    ProcesaMensajes
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Termina = True
    'Quitar la Hot-Key registrada
    Call UnregisterHotKey(Me.hWnd, &HBFFF&)
End Sub