Sub GetImageSize(ByVal f, ByRef x, ByRef y)
    Dim p
    Set p = LoadPicture(f)
    x = CLng(CDbl(p.Width) * 24 / 635)  ' CLng 의 라운드 오프의 기능을 이용하고 있다.
    y = CLng(CDbl(p.Height) * 24 / 635) ' CLng 의 라운드 오프의 기능을 이용하고 있다.

    Set p = Nothing
End Sub