ImageToIcon

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

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

End Function

My.resourses.MyImage.ToIcon()