Public Declare Function MulDiv Lib "kernel32" Alias "MulDiv" (ByVal nNumber As _
  Long, _
  ByVal nNumerator As Long, ByVal nDenominator As Long) As Long
 
Public Declare Function GetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" _
  (ByVal hdc As Long, ByVal nIndex As Long) As Long
 
Public Const LOGPIXELSY = 90

Function pt2Pix(ByVal hdc As Long, ByVal pt As Long) As Long
  Function = -MulDiv(pt, GetDeviceCaps(hdc, %LOGPIXELSY), 72)
End Function