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 SWP_FLAGS = 3
Private Const SWP_HWND_TOPMOST = -1
Private Const SWP_HWND_NOTOPMOST = -2

 

Public Sub AlwaysOnTop(myfrm As Form, SetOnTop As Boolean)
   Dim lFlag As Long
   If SetOnTop Then
      lFlag = SWP_HWND_TOPMOST
   Else
      lFlag = SWP_HWND_NOTOPMOST
   End If
   SetWindowPos myfrm.hwnd, lFlag, myfrm.Left / Screen.TwipsPerPixelX, myfrm.Top / Screen.TwipsPerPixelY, myfrm.Width / Screen.TwipsPerPixelX, myfrm.Height / Screen.TwipsPerPixelY, SWP_FLAGS
End SubLAGS
End Sub

 

Para chamar a função: AlwaysOnTop(Form1, True)

 

Poste o resultado depois do teste.