Ventana Siempre Activa

[NetClass]

Hola, mi problema es que cuando por ejemplo pongo este code en el Fromulario:

Código:

Private Sub Form_KeyPress(KeyAscii As Integer)
MsgBox KeyAscii
End Sub

Eso tendra como resultado que cuando apreto una tecla me saldra el ascii, pero solo lo hace si la ventana esta actvia.

Si yo habro ese exe pero voy a otra ventana y escribo algo no me saldra ningun mensaje.

Por eso quiero saber si hay alguna manera de dejar la ventana siempre activa o sino de alguna otra manera...

Gracias...

[ranefi]

Hola NetClass. El siguiente es el código para mantener una ventana siempre activa.

Insertar el siguiente código en...

El formulario

Código:

Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2 '

Private Declare Function SetWindowPos Lib "user32" _
    (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal X As Long, ByVal Y As Long, ByVal cX As Long, _
    ByVal cY As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
        SWP_NOMOVE Or SWP_NOSIZE
End Sub

Nos vemos.