VB 6.0 - Create an appication in VB6 0

Hello! how to create an application in vb 6.0 that is always visible.. i mean is if you open a window(internet explorer, mycomputer, etc) the application is always displayed on the upper portion of the desktop meaning your application is always on top of any other window.. how to do this? Please give a complete example on how to do this... thanks!

To activate
Declare the FindWindow and BringWindowToTop APIs in a form or module, then use:

  Private Sub Command1_Click()
      Dim hCalcWnd As Long
      Dim x As Long

      hCalcWnd = FindWindow("SciCalc", "Calculator")
      If hCalcWnd = 0 Then
          x = Shell("CALC.EXE", vbNormalFocus)
      Else
          BringWindowToTop(hCalcWnd)
      End If
  End Sub

I mean is it is always on top of any other windows..