Dim lRtn As Long
lRtn = SetWindowPos(form1.hWnd, -1, 0, 0, 0, 0, &H40)

これで 最前面に表示させようとしてますが、
実行すると タスクバーにもうひとつバーが表示されて
ほかの画面をクリックすると それが 最前面になってしまいます。

常に 最前面にするには どうしたらいいのでしょうか？