PNG-24 Rollover Support in IE 5, 6

Imports Microsoft.VisualBasic

Public Class HTML
    Inherits System.Web.UI.Page

    Public Shared Function PNGRollover(ByVal ID As String, _
                                        ByVal IMG1 As String, _
                                        ByVal IMG2 As String, _
                                        ByVal WIDTH As Int16, _
                                        ByVal HEIGHT As Int16, _
                                        ByVal HREF As String) As String

        Dim SB As StringBuilder = New StringBuilder

        If My.Request.Browser.Browser = "IE" Then
            SB.Append("<A HREF=""" & HREF & """")
            SB.Append(" onmouseover=""PNGRollover('" & ID &amp; "','" & IMG2 & "');""")
            SB.Append(" onmouseout=""PNGRollover('" & ID &amp; "','" & IMG1 & "');""")
            SB.Append(">")
            SB.Append("<IMG SRC=""../images/x.png""")
            SB.Append(" width=""" & WIDTH & """")
            SB.Append(" height=""" & HEIGHT & """")
            SB.Append(" ID=""" & ID & """")
            SB.Append(" border=""0""")
            SB.Append(" style=""filter: progid:DXImageTransform.Microsoft.AlphaImageLoader(src='" & IMG1 & "', sizingMethod='scale');""")
            SB.Append(" alt=""""")
            SB.Append(" >")
            SB.Append("</A>")
        Else
            SB.Append("<A HREF=""" & HREF & """")
            SB.Append(" onmouseover=""ANYRollover('" & ID &amp; "','" & IMG2 & "');""")
            SB.Append(" onmouseout=""ANYRollover('" & ID &amp; "','" & IMG1 & "');""")
            SB.Append(">")
            SB.Append("<IMG SRC=""" & IMG1 & """")
            SB.Append(" width=""" & WIDTH & """")
            SB.Append(" height=""" & HEIGHT & """")
            SB.Append(" ID=""" & ID & """")
            SB.Append(" border=""0""")
            SB.Append(" alt=""""")
            SB.Append(" >")
            SB.Append("</A>")
        End If
      

        Return SB.ToString

    End Function

End Class