Code:
Imports DevIL
Imports DevIL.Unmanaged
Imports System.Drawing.Imaging
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim o As New OpenFileDialog()
o.ShowDialog()
Dim image As Image
Dim i As New ImageImporter()
image = i.LoadImage(ImageType.Dds, o.FileName)
image.Bind()
Dim info = IL.GetImageInfo()
Dim bitmap = New Bitmap(info.Width, info.Height, PixelFormat.Format32bppArgb)
Dim rect = New Rectangle(0, 0, info.Width, info.Height)
Dim data = bitmap.LockBits(rect, ImageLockMode.WriteOnly, PixelFormat.Format32bppArgb)
IL.CopyPixels(0, 0, 0, info.Width, info.Height, 1, DataFormat.BGRA, DataType.UnsignedByte, data.Scan0)
bitmap.UnlockBits(Data)
PictureBox1.Image = bitmap
PictureBox1.Refresh()
End Sub
End Class