VB生成的两个.exe应用程序，如何都窗口置顶

VB生成的两个.exe应用程序
程序一上面采用以下方法来实现窗口置顶
VB code:

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) As Long
Private Const a& = -1
Private Const b& = &H1
Private Const c& = &H2
Private Sub Form_Load()
Me.Move 0, 0, Screen.Width, Screen.Height
End Sub


程序二上面也采用同样的方法来实现窗口置顶
但当程序一和二同时运行时，只有运行的第二个程序能实现置顶。
我想让两个程序都实现置顶，该怎么写？

我也曾把Private Const a& 值改成-2 试过，但还是不行。。。

---

只能有一个。

---

可以将一个置顶了之后再将另一个置顶,但是不可能两个同时置顶.

---

不能。
窗口次序 ZOrder 只有一个队列，不可能存在并排。

---

请问二楼，如何将一个置顶了之后再将另一个置顶呢？
我的要求是，首先运行程序一，它是处于置顶状态的；再运行程序二，这时程序二处于程序一的上面；但它们对于其它程序是处于置顶状态的。。。

---

你不是有个SetWindowPos吗,再用个FindWindow 就可以了

---

Private Sub Form_Load()
    Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
End Sub

---

请问五楼，用FindWindow置顶，怎么写？

---

FindWindow是用来找到窗体句柄,然后将这个句柄传入SetWindowPos的参数里