Why is the image in picturebox ugly?

[yxq]

Please add the manifest file!

*************** *************** *************** *************** *
Imports System
Imports System.Drawing
Imports System.Runtime. InteropServices
Module Module1
Public Class Icon
'============== =============== =============== =============== =============== =
==========
' Enumerations

'============== =============== =============== =============== =============== =
==========
<Flags()> Private Enum SHGFI
SmallIcon = &H1
LargeIcon = &H0
Icon = &H100
DisplayName = &H200
Typename = &H400
SysIconIndex = &H4000
UseFileAttribut es = &H10
End Enum

Public Enum IconSize
SmallIcon = 1
LargeIcon = 0
End Enum
'============== =============== =============== =============== =============== =
==========
' Structures

'============== =============== =============== =============== =============== =
==========
<StructLayout(L ayoutKind.Seque ntial)> _
Private Structure SHFILEINFO
Public hIcon As IntPtr
Public iIcon As Integer
Public dwAttributes As Integer
<MarshalAs(Unma nagedType.LPStr , SizeConst:=260) > Public
szDisplayName As String
<MarshalAs(Unma nagedType.LPStr , SizeConst:=80)> Public
szTypeName As String

Public Sub New(ByVal B As Boolean)
hIcon = IntPtr.Zero
iIcon = 0
dwAttributes = 0
szDisplayName = vbNullString
szTypeName = vbNullString
End Sub
End Structure
'============== =============== =============== =============== =============== =
==========
' API Calls

'============== =============== =============== =============== =============== =
==========
Private Declare Auto Function SHGetFileInfo Lib "shell32" (ByVal
pszPath As String,

ByVal dwFileAttribute s As Integer, ByRef psfi As SHFILEINFO, ByVal
cbFileInfo As Integer, ByVal

uFlagsn As SHGFI) As Integer
'============== =============== =============== =============== =============== =
==========
' Functions and Procedures...

'============== =============== =============== =============== =============== =
==========
Public Shared Function GetDefaultIcon( ByVal Path As String, Optional
ByVal IconSize As

IconSize = IconSize.SmallI con, Optional ByVal SaveIconPath As String = "")
As Icon
Dim info As New SHFILEINFO(True )
Dim cbSizeInfo As Integer = Marshal.SizeOf( info)
Dim flags As SHGFI = SHGFI.Icon Or SHGFI.UseFileAt tributes
flags = flags + IconSize
SHGetFileInfo(P ath, 256, info, cbSizeInfo, flags)
GetDefaultIcon = Icon.FromHandle (info.hIcon)
If SaveIconPath <> "" Then
Dim FileStream As New IO.FileStream(S aveIconPath,
IO.FileMode.Cre ate)
GetDefaultIcon. Save(FileStream )
FileStream.Clos e()
End If
End Function 'GetDefaultIcon (ByVal Path As String, Optional ByVal
IconSize As

IconSize = IconSize.SmallI con, Optional ByVal SaveIconPath As String = "")
As Icon

'============== =============== =============== =============== =============== =
==========
Public Shared Function ImageToIcon(ByV al SourceImage As Image) As
Icon
' converts an image into an icon
Dim TempBitmap As New Bitmap(SourceIm age)
ImageToIcon = Icon.FromHandle (TempBitmap.Get Hicon())
TempBitmap.Disp ose()
End Function 'ImageToIcon(By Val SourceImage As Image) As Icon

'============== =============== =============== =============== =============== =
==========

End Class
Public Declare Unicode Function PickIconDlg _
Lib "shell32.dl l" Alias "#62" ( _
ByVal hwndOwner As IntPtr, _
ByVal lpstrFile As System.Text.Str ingBuilder, _
ByVal nMaxFile As Integer, _
ByRef lpdwIconIndex As Integer) _
As Integer

Public Declare Function ExtractIcon _
Lib "shell32.dl l" Alias "ExtractIco nA" ( _
ByVal hInst As IntPtr, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Integer) _
As IntPtr

Public Declare Function DestroyIcon _
Lib "user32.dll " (ByVal hIcon As Integer) _
As Integer
End Module
*************** *************** *************** *************** *************** *
*****

Private Sub Form1_Load(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles

MyBase.Load
Dim ObjLVI As ListViewItem
Dim arrItem(1) As String
Dim eachDrv As String
Dim ObjSize As New Size()
ObjSize.Height = 32
ObjSize.Width = 32

ImageList1.Imag eSize = ObjSize
ImageList1.Colo rDepth = ColorDepth.Dept h32Bit
ListView1.Large ImageList = ImageList1

For Each eachDrv In System.Environm ent.GetLogicalD rives
arrItem(0) = eachDrv
ObjLVI = New ListViewItem(ar rItem)
ImageList1.Imag es.Add(Icon.Get DefaultIcon(arr Item(0),
Icon.IconSize.L argeIcon, ""))
ObjLVI.ImageInd ex = ImageList1.Imag es.Count - 1

ListView1.Items .Add(ObjLVI)
Next
End Sub

Private Sub ListView1_Selec tedIndexChanged (ByVal sender As Object, ByVal e
As

System.EventArg s) Handles ListView1.Selec tedIndexChanged
Try
PictureBox1.Ima ge =
ImageList1.Imag es(ListView1.Se lectedItems(0). ImageIndex)
Catch
End Try
End Sub
*************** *************** *************** *************** *************** *
**********

Thanks