Rimuovere la barra di Internet Explorer via API

Public Function Change()
Dim lStyle As Long
lStyle = GetWindowLong(CurHandle, GWL_STYLE)
lStyle = lStyle Xor WS_OVERLAPPEDWINDOW
lStyle = lStyle Xor WS_POPUP
Call SetWindowLong(CurHandle, GWL_STYLE, lStyle)
UpdateWindow CurHandle
End Function