Visual Basic - Formulario No ocultable

Hola..Muchachos.. Bueno me acerco a UD por que tengo un problemilla.. necesita crear un formulario el cual no se oculte... Bueno... lo necesita para mientras tengo abierto Excel este formulario me muestre unos datos que necesito pero que no se esconda.( ya que al mantener abierto completamente Excel y darle el foco a este, automáticamente el formulario se esconde tras Excel y así no me sirve). Lo ideal seria que mientras yo no lo baje a la barra de tareas este no se oculte por ningún motivo.

Bueno desde ya agradezco a quien me pueda ayudar y acá en este foro jamás me han defraudado, espero no sea la primera.

Saludos.
Tonijua

======================================================================
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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()

OnTop = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub
======================================================================

Juan_K, Hola Gracias por el codigo otorgado, pero este codigo solo mantiene en formurario visible ante VB, ya que al abrir cualquier otra operacio.. como por ejemplo Excel en formulario pierde el foco y se oculta tras las demas aplicaciones. desde ya agradesco tu peocupacio.. Aun dejo el tema e el foro por si alguien mas me puede ayudar.. Mil gracias.


Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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()

OnTop = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

Muchachos, si alguein me puede ayudar...!

"Juan_K, Hola Gracias por el codigo otorgado, pero este codigo solo mantiene en formurario visible ante VB, ya que al abrir cualquier otra operacio.. como por ejemplo Excel en formulario pierde el foco y se oculta tras las demas aplicaciones. desde ya agradesco tu peocupacio.. Aun dejo el tema e el foro por si alguien mas me puede ayudar.. Mil gracias.

Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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()

OnTop = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub