Så här ser min kod ut och det enda som inte funkar är att bilden vägrar bli 50 i width.
Hur kan man göra istället?
Sub FillPictures(ByVal objektid As Integer)
Dim Pic As HyperLink
Dim dir As New DirectoryInfo(Server.MapPath("objects/"))
Dim fil As FileInfo
For Each fil In dir.GetFiles("*.*")
Pic = New HyperLink()
Pic.ImageUrl = "objects/" & fil.Name
Pic.Width = Unit.Parse(50)
Bilder.Controls.Add(Pic)
Next
End Sub