Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim iFileCnt As Integer = 0
        Dim dirInfo As New System.IO.DirectoryInfo(Server.MapPath("~/Images/"))
        Dim listfiles As FileInfo() = dirInfo.GetFiles("*.*")
        If listfiles.Length > 0 Then
            For Each file As FileInfo In listfiles
                ' CHECK THE TYPE OF FILE.
                If Trim(listfiles(iFileCnt).Extension) = ".jpg" Or _
                    Trim(listfiles(iFileCnt).Extension) = ".jpeg" Or _
                        Trim(listfiles(iFileCnt).Extension) = ".png" Or _
                            Trim(listfiles(iFileCnt).Extension) = ".bmp" Or _
                                Trim(listfiles(iFileCnt).Extension) = ".gif" Then
                    Dim img As New Image
                    Dim newDiv As New HtmlGenericControl("div")
                    ' ADD IMAGE.
                    img.ImageUrl = "~/Images/" & listfiles(iFileCnt).Name
                    img.Width = "70"
                    img.Height = "70"
                    newDiv.Attributes.Add("style", "float:left;padding:30px 30px;margin:20px 3px;height:auto;overflow:hidden;")
                    newDiv.Controls.Add(img)
                    ' ADD A TEXT.
                    LinkButton1.Controls.Add(newDiv)
                    img.Attributes.Add("onmouseover", "javascript:this.style.borderStyle='solid';this.style.borderWidth='1px';")
                    img.Attributes.Add("onmouseout", "javascript:this.style.borderStyle='none';this.style.borderWidth='none';")

textbox1.text=img.imageurl

                End If
                iFileCnt = iFileCnt + 1
            Next
        End If
    End Sub