Visual Basic - Ayuda con mis ventanas

Estoy programando en VB6 y necesito que cuando se ejecute mi aplicacion, se minimizen todas las demas ventanas que esten abiertas las instrucciones con lo que realizo la minimizacion de ventanas es:

Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, &H2, 0)

pero resulta que despues pierde el foco mi aplicacion.

Mi pregunta es como puedo obtener el foco para mi aplicacion ya que se pierde.

De antemano gracias
Saludos desde México
Juan José

Mirá, se que en el apartado de las Apis existe la forma de que tu aplicación quede siempre adelante. con lo cual no tendrías necesidad de minimizar todas las demás ventanas.

Fijate si alguien te puede ayudar, si nadie puede avisame y yo te lo busco.

Afogutu

pega esto en un modulo

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)

Public Sub FormOnTop(Formulario As Form, Top As Boolean)
Dim rtn
OTop = Top
If Top = True Then
rtn = SetWindowPos(Face.hwnd, -1, 0, 0, 0, 0, 3)
Else
rtn = SetWindowPos(Face.hwnd, -2, 0, 0, 0, 0, 3)
End If
End Sub

y para utilizarlo solo tienes que poner en donde sea:

FormOnTop (TuFormulario, True) ´--> siempre encima
FormOnTop (TuFormulario, False) ´--> ya no esta siempre encima

nota: TuFormulario es el formulario que deseas que se mantenga encima de las demas.

espero que esto te sirva contestanto a afogutu.

Gracias por su valiosa ayuda.

Saludos desde México
Juan José