Option Explicit
 
Public Declare Function GetFocus Lib "user32" () As Long
Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
Public 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
 
Public Const SWP_NOMOVE As Long = &H2
Public Const SWP_NOSIZE As Long = &H1
Public Const HWND_TOPMOST As Long = -1
 
Public Sub ShowWithOutFocus(ByRef frm As Form)
 
    Dim hwnd As Long
 
    Call Load(frm)
    hwnd = GetFocus()
    Call frm.Show
    Call SetWindowPos(frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or _
      SWP_NOSIZE)
    Call SetFocus(hwnd)
 
End Sub

Call ShowWithOutFocus(Form1)