'Usage

Dim icon As IntPtr
Dim sourceRect As Int32Rect
Dim sizeOptions As BitmapSizeOptions
Dim returnValue As BitmapSource

returnValue = Imaging.CreateBitmapSourceFromHIcon(icon, _
    sourceRect, sizeOptions)

'Declaration

Public Shared Function CreateBitmapSourceFromHIcon ( _
    icon As IntPtr, _
    sourceRect As Int32Rect, _
    sizeOptions As BitmapSizeOptions _
) As BitmapSource