Dim icone As Icon = Icon.ExtractAssociatedIcon("test.txt")
Dim convert As New Bitmap(32, 32, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
convert = icone.ToBitmap()
convert.Save("test.ico", ImageFormat.Icon)
Dim icone As Icon = Icon.ExtractAssociatedIcon("test.txt")
Dim convert As New Bitmap(32, 32, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
convert = icone.ToBitmap()
convert.Save("test.ico", ImageFormat.Icon)