Not AlwaysOnTop? [urgent]

'Your program
Public Const HWND_BOTTOM = 1 

Public Declare Function SetWindowPos Lib "user32.dll" _ 
(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 

Private Sub Timer1_Timer()
Dim retval as long
retval = SetWindowPos(Me.hWnd, HWND_BOTTOM, 0, 0, 1, 1, flags)
End Sub

Another program:

Public Const HWND_BOTTOM = 1 

Public Declare Function SetWindowPos Lib "user32.dll" _ 
(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

Private Sub Timer1_Timer()
Dim thewindow As Long, retval As Long
thewindow = findwindow(vbNullString, "Form1")
retval = SetWindowPos(thewindow, HWND_BOTTOM, 0, 0, 1, 1, Flags)
End Sub