File icons

I'm trying to add the icon related to the file extension and I'm using:

Public Function GetIcon(ByVal Filename As String, ByVal iSize As IconSize) As System.Drawing.Icon

Dim hImg As IntPtr

Dim shinfo As New SHFileInfo

' Depending on the size, get the icon from the file

If iSize = IconSize.Small Then ' Return small icon

hImg = SHGetFileInfo(Filename, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)

ElseIf iSize = IconSize.Large Then ' Return large icon

hImg = SHGetFileInfo(Filename, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_LARGEICON)

End If

'The icon is returned in the hIcon member of the shinfo struct.

GetIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)

End Function

Add the icon but when add the icon to the report control:

Dim ico As System.Drawing.Icon

...