<DllImport("gdiplus.dll", CharSet:=CharSet.Unicode, SetLastError:=True, _
  ExactSpelling:=True)> _
Friend Shared Function GdipCreateBitmapFromStream(ByVal stream As IStream, _
ByRef bitmap As IntPtr) As Integer
End Function

<DllImport("gdiplus.dll", CharSet:=CharSet.Unicode, SetLastError:=True, _
  ExactSpelling:=True)> _
Friend Shared Function GdipLoadImageFromFileICM(ByVal filename As String, _
<Out> ByRef image As IntPtr) As Integer
End Function

Dim bmp As New Bitmap("test.png")
MsgBox(bmp.PixelFormat.ToString())