VBScript поле InputBox

[rinjii]

Реализовать программу, которая будет открывать InputBox ровно в середине экрана, для любого разрешения

[ViktorR]

Код на VBScript

Option Explicit

Dim Res, Title, Text
Text = "Пример" & vbCrLf & "диалогового окна" & vbCrLf _
           & "для ввода сообщения"
Res = InputBox(Text, "Ввод строки", "Привет!")
WScript.Echo Res

Что тут не так?
Относительно какого элемента окна считать середину?

Всегда открывает по центру монитора.

[rinjii]

на разрешении 1920х1080 по вертикали не по середине
а середина это равное значение сверху и снизу окна до конца экрана

[ViktorR]

Заинтриговал.
Спросил у Сети. Получил ссылку на методичку:
А. С. Грошев. Программирование на VBS, стр.8.
Не знаю, можно ли тут делать такие ссылки, но вот:http://omrondoc.ru/C/Visual%20Basic%...%20Edition.pdf

Остаётся только получить разрешение монитора и будет счастье

А ещё поищи в Сети файл: Script56.CHM

InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])

xpos, ypos - координаты верхнего левого угла окна.
Вот только как быть с размерами окна, но думаю это можно решить, ...