[vb6] Make form stay on top

Sometimes you need a form to stay on top, even when another form has focus, so that its immediately available to the user. This code toggles the OnTop state for a form when passed the hwnd property of a form:

    Private Const GW_HWNDFIRST& = 0
    Private Const HWND_NOTOPMOST& = -2
    Private Const HWND_TOPMOST& = -1
    Private Const SWP_NOMOVE& = &H2
    Private Const SWP_NOSIZE& = &H1
    Private Declare Function GetWindow& Lib "user32" _
        (ByVal hwnd As Long, ByVal wCmd As Long)
    Private 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)
    
    Private Sub ToggleTopmost(ByVal hWindow As Long)
      Dim hw As Long
      hw = GetWindow(hWindow, GW_HWNDFIRST)
      If hw = hWindow Then
        SetWindowPos hWindow, HWND_NOTOPMOST, 0, 0, 0, 0, _
            SWP_NOMOVE Or SWP_NOSIZE
      Else
        SetWindowPos hWindow, HWND_TOPMOST, 0, 0, 0, 0, _
            SWP_NOMOVE Or SWP_NOSIZE
      End If
    End Sub