이미지 사이즈 구하기

Sub GetImageSize(ByVal f, ByRef x, ByRef y)        
        Dim p
        Set p = LoadPicture(f)
        x = CLng(CDbl(p.Width) * 24 / 635) 
        y = CLng(CDbl(p.Height) * 24 / 635)
       
        Set p = Nothing
    End Sub
   
    dim x,y
    GetImageSize "c:\inetpub\wwwroot\test\warning.gif", x, y
    response.write "x=" & x
    response.write "<br>"
    response.write "y=" & y