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 Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd 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, old_hwnd As Long
 
    old_hwnd = GetForegroundWindow
    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)
    SetForegroundWindow old_hwnd
End Sub