Вот я решил отползти от этих гребанных твипсов и считать все в пикселях. Да и задача - про пиксели. Т.е. - все целое. Мои переменные - As Long. Использую явное приведение CLng().

Но...
.. малехо ссыкотно - практики нет, как ведет оно себя наживую?

Наставил проверок море:

If fn_ChkFrc(.ScaleWidth) Then Stop

Private Function fn_ChkFrc(pVal As Variant) As Boolean ' chk fractional value
    fn_ChkFrc = ((pVal - Int(pVal)) > 0)
End Function

Не сработали ни разу. Да и не должны бы, по уму-то...
Надо сдавать на продакшн. Но... - ссыкотно...

Если кто руками долго трогал сей предмет, поделитесь, плз...
.

http://www.sql.ru/forum/1244430/scalemode-vbpixels-scalewidth-as-single