Option Explicit

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

Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
                            ByVal lpClassName As String, _
                            ByVal lpWindowName As String _
                            ) As Long

Public Function SetTopMostWindow(hWnd As Long, Topmost As Boolean) As Long
    If Topmost = True Then
        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

Sub Main()
    Dim hWndNotepad As Long
    hWndNotepad = FindWindow(vbNullString, "Microsoft Spy++ - [Windows 1]")
    SetTopMostWindow hWndNotepad, True
End Sub