Visual Basic - Mostrar ventana por encima de las demas.

Saludos amigos.
Cual es el código para que al ejecutar el programa me quede la ventana de ese programa por encima de las demás que en ese momento se esten ejecutando y las que se ejecutaran. Sin quitarle el focus a la que este activa.
Por favor. espero me entiendan y si no me lo dicen para ver como me explico mejor.
Gracias

Buenos días Javier.
En el formulario que te interesa, que puede ser el principal, coloca un Timer (en el ejemplo Timer1)

Private Sub Form_Load()
Espera
End Sub

Private Sub Form_Click()
Me.Visible = False
End Sub

Public Function Espera()
Dim lR
Me.Visible = True
Timer1.Enabled = True
Timer1.Interval = 1300
lR = SetTopMostWindow(me.hWnd, True)
End Function

Private Sub Timer1_Timer()
Timer1.Enabled = False
lR = SetTopMostWindow(me.hWnd, False)
Me.Visible = False
End Sub

En un módulo .bas coloca esto:

Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2 '
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

Public Function SetTopMostWindow(hWnd As Long, Topmost As Boolean) As Long
If Topmost = True Then 'Make the window topmost
SetTopMostWindow = SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Else
SetTopMostWindow = SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
SetTopMostWindow = False
End If
End Function

De esta manera siempre tendrás ese formulario en primer plano, si haces "click" sobre él, desaparecerá (evento Form_Click )

Así es cómo lo tengo y me funciona.
Espero haberte ayudado.
Un saludo

Hola Pere. Muchas gracias por tu ayuda. Voy a hacerlo y te cuento.

Apreciado Pere. Meti el codigo que me pasastes en el timer1. Al ejecutarle me sale un error de que le nombre timer1.timer es un nombre ambiguo. He revisado el nombre y todos concuerdan. Osea el unico timer que hay se llama así, timer1.
Gracias Pere y disculpa la molestias
Que podria estar causando el error
de nuevo gracias.