Неверные размеры компонентов...

[Andrey Fedorov]

Итак, делаю пустую форму, на нее кидаю обычный ListView (пробовал и другие ActiveX компоненты. Весь код формы:

Код: Выделить всё

Private Sub Form_Resize()
    With ListView1
        .Move 2, 2, ScaleWidth - 4, ScaleHeight - 4
    End With
End Sub


По идее компонент должен быть по центру с одинаковыми отступами от края. Но если мы запускаем это дело на машине с масштабом отличным от Small Fonts то правый отступ будет иным. Если вместо ListView вставить TextBox то все будет нормально.

Как сиё победить - ведь глюк страшно неприятный?????
Должен аукаться на куче машин со смененым маштбом фонтов...