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