Pescare la larghezza e l' altezza dell ' immagine

[pietro09]

io ho fatto così

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'carico in session l'indirizzo dell'immagine
        Me.Session.Add("url_img", "/ProveNikon/images/miniature/IMG_11.jpg")

        'recupero l'indirizzo dell'immagine
        Dim url_img As String = TryCast(Me.Session("url_img"), String)

        'se esiste questo indirizzo
        If url_img IsNot Nothing Then
            Me.ImageButton1.ImageUrl = url_img

            'leggo le caratteristiche dell'immagine
            Dim bmp As New Bitmap(Server.MapPath(url_img))

            'recupero larghezza e altezza
            Me.ImageButton1.Width = bmp.Width
            Me.ImageButton1.Height = bmp.Height

            'libero le risorse
            bmp.Dispose()
        End If

    End Sub