FormOnTop (6)

Declare Function FindWindow% Lib "User" (ByVal lpClassName As Any,
ByVal lpWindowName As Any)
Declare Function ShowWindow% Lib "User" (ByVal hWnd%, ByVal nCmdShow%)
Const SW_HIDE = 0
Const SW_SHOW = 5
' Put the code below in the appropriate event:

' Form_Load or Activate most likely.

Form_Load()
' This example hides the "Graphics Server" icon

Dim Handle As Integer
Dim WindowName As String
' Set the name of the window

WindowName = "Graphics Server"
' Find that window

Handle = FindWindow(0&, WindowName)
' Change last param to SW_SHOW to show the icon again

X% = ShowWindow(Handle, SW_HIDE)
End Sub

Note:
This has only been tested with VB 3 and VB 4-16, if you convert
this for use with other versions please let me know.-Burt Abreu
Use these 2 API's and the code below to hide/show a window
or icon. Works nicely to hide the Graphics Server icon, for
example.
Declare these API's and Constants: