ImageToIcon

 <Extension()> _
    Public Function toIcon(ByVal IconFromResources As Image) As Icon

        Dim myIcon As Bitmap = IconFromResources
        Return Icon.FromHandle(myIcon.GetHicon)

    End Function
Example:
My.resourses.MyImage.ToIcon()

Description

Converte imagem do resources em icone

Details

Double click on the code to select all.

 

;