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)

Const HWND_TOPMOST = - 1 
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
.....

Set frm = Forms(i) 
       
SetWindowPos frm.hwnd, HWND_TOPMOST,  0 ,  0 ,  0 ,  0 , SWP_NOMOVE Or SWP_NOSIZE

If MsgBox("По данному запросу операции уже проводились" & Chr( 13 ) & _
                                    "Желаете внести изменения?", vbQuestion + vbYesNo, "") = vbYes Then

Option Explicit

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)

Const HWND_TOPMOST = - 1 
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2

Public Sub StayOnTop(ByRef objFrm As Form)

    SetWindowPos objFrm.hwnd, HWND_TOPMOST,  0 ,  0 ,  0 ,  0 , SWP_NOMOVE Or SWP_NOSIZE

End Sub

Private Sub Timer_Timer()
On Error GoTo errlbl
    Dim rst As New ADODB.Recordset
    Dim rst1 As New ADODB.Recordset
    Dim dat As Variant
    Dim frm As Form
    Dim i As Integer
    
    i =  0 
    
    DoEvents
    Set frm = Forms( 0 )
    dat = "'" & Format(Date, "yyyy-mm-dd") & "'"
'***************************************************************************************
'- проведенные операции по кассе и по БИСу
    rst1.Open _
    "SELECT count(id) as c FROM val_op_cont WHERE op_sysdate>" & dat & " AND (val_op_cont.op_old='' or val_op_cont.op_old is null)  ", _
    Cn, adOpenDynamic, adLockReadOnly
    
    rst.Open _
    "SELECT count(id) as c_ch FROM val_op_cont WHERE op_sysdate>" & dat & " ", _
    Cn, adOpenDynamic, adLockReadOnly
    
    If rst1!c <> op_count_cas Or rst!c_ch <> op_count_cas_all Then
            op_count_cas = rst1!c           '- количество результирующих операций
            op_count_cas_all = rst!c_ch     '- полное количество операций, включая удаленные и исправленные
               
            Me.MSHFG_ValOpCtrl.Refresh
            Me.MSHFG_BnOpCtrl.Refresh
            Call ComList_FltCas_Click
            Call ComList_FltBN_Click
            
        '- тут мы вынимаем окошко поверх всех окошек и не даем его спрятать кроме как свернуть
            'Me.Show
            Me.WindowState = vbNormal
            [color=red]Call StayOnTop(frm) [/color]
            For i =  1  To  5 
                Beep
            Next
            DoEvents
    End If
        
    rst.Close
    Set rst = Nothing
    
    rst1.Close
    Set rst1 = Nothing
        
'***************************************************************************************
'- проверка вновь поступивших запросов.
    rst1.Open _
    "SELECT count(id) as c FROM message WHERE message.req_date>'" & Format(Date, "yyyy-mm-dd HH:mm:ss") & "' AND (message.status =1)  ", _
    Cn, adOpenStatic, adLockReadOnly
    
    DoEvents
    If rst1!c <> op_req_count And Not rst1.EOF And Not rst1.BOF Then
            
        op_req_count = rst1!c
        
        Me.WindowState = vbNormal
        [color=red]Call StayOnTop(frm)[/color]  
        For i =  1  To  5 
            Beep
        Next
        Call MSHFG_req_rebild
    End If
    
    Call MSHFG_req_rebild
    'Me.MSHFG_req.Refresh
    
    rst1.Close
    Set rst1 = Nothing
    
'***************************************************************************************
    DoEvents
    Exit Sub

errlbl:
    MsgBox "Процедура < timer >" & Chr( 13 ) & _
            Err.Description, vbCritical + vbOKOnly, "Ошибка: " & Err.Number
End Sub

Dim frm As Form

 Set frm = Forms( 0 )
....

Call StayOnTop(frm)