Public Sub LoadImages()
SQL = “SELECT * FROM WALLPAPERS”
DIM DT AS NEW DATATABLE = SQLDATATABLE(SQL,LERMY) ///this is a fucnionar that i’ve made myself…
Dim imageListEntries As ImageListEntry() = New ImageListEntry(1) {}
for each image in dt.rows
arrImage = dt.Rows(count).Item(0)
Dim mstream As New System.IO.MemoryStream(arrImage)
imageListEntries(count) = New ImageListEntry(Image.FromStream(mstream))
PictureBox1.Image = Image.FromStream(mstream)
count = count + 1
next
CustomWallpaper1.Images = imageListEntries
End Sub