[code]
lcMessage="Всех с новым годом..."
Rows_Foxel=IIF(_screen.ScaleMode= 3,_screen.Height/FONTMETRIC(1),_screen.Height)
Cols_Foxel=IIF(_screen.ScaleMode= 3,_screen.Width/FONTMETRIC(6),_screen.Width)
WAIT WINDOW lcMessage AT INT((Rows_Foxel-1)/2),INT((Cols_Foxel-LEN(lcMessage))/2) NOWAIT
....
WAIT CLEAR
[/code]