تابع CIcon برای تبدیل Image به Icon

[ROSTAM2]

سه تابع Overload هست که توی یک ماجول می تونید استفاده کنید...



'Converting Image to Icon
Public Function CIcon(ByVal Image As Image) As Icon
Dim ico As Icon = Nothing
ico = Icon.FromHandle(New Bitmap(Image).GetHicon)
Return ico
End Function

'Convert ImageList Item As Image to Icon
Public Function CIcon(ByVal ImageList As ImageList, ByVal Index%) As Icon
Dim ico As Icon = Nothing
ico = CIcon(ImageList.Images(Index))
Return ico
End Function

Public Function CIcon(ByVal path As String) As Icon
Dim ico As Icon = Nothing
ico = CIcon(Image.FromFile(path))
Return ico
End Function