15 lines
324 B
VB.net
15 lines
324 B
VB.net
Imports System.Drawing
|
|
Imports System.Runtime.CompilerServices
|
|
|
|
Public Module Extensions
|
|
|
|
<Extension>
|
|
Public Function ToIcon(image As Image)
|
|
If TypeOf image Is Bitmap Then
|
|
Return Icon.FromHandle(CType(image, Bitmap).GetHicon)
|
|
End If
|
|
Return Nothing
|
|
End Function
|
|
|
|
End Module
|