Sub SetBlock() dim cInfo as CONSOLE_CURSOR_INFO cInfo.dwSize = 100 ' 100% size cInfo.bVisible = TRUE SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), @cInfo) End Sub Print 10 SetBlock() sleep
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
