Con le funzioni Screen.TwipsPerPixelX e Screen.TwipsPerPixelY te la da direttamente VB la relazione.

Ciao