Есть статья по адресу
https://users.freebasic-portal.de/freebasicru/api_19.html
Пример не запустился пришлось добавитьЦитата
Dim Shared As InitCommonControlsEx iPagescrollerx = (Len(INITCOMMONCONTROLSEX),ICC_PAGESCROLLER_CLASS)
InitCommonControlsEx(@iPagescrollerx)