PRIVATE DECLARE FUNCTION GetForegroundWindow LIB "user32" () AS LONG
 
PRIVATE DECLARE FUNCTION SetWindowLong LIB "user32" _
   ALIAS "SetWindowLongA" _
   (BYVAL hwnd AS LONG, BYVAL nIndex AS LONG, BYVAL dwNewLong AS LONG) AS LONG
 
PRIVATE CONST GWL_STYLE = (-16)
PRIVATE CONST WS_DLGFRAME = &H400000
PRIVATE CONST WS_CAPTION = &HC00000
PRIVATE CONST WS_VISIBLE = &H10000000
 
 
PRIVATE SUB UserForm_Activate()
  DIM hwnd AS LONG
 
  hwnd = GetForegroundWindow()
  SetWindowLong hwnd, GWL_STYLE, WS_DLGFRAME OR WS_VISIBLE OR WS_CAPTION
  UserForm1.Hide
  UserForm1.Show
END SUB