Forum Moderators: open
regards
lee (with a little less hair)
I'll sticky you a URL that might do the trick, they have it as a web service which is not quite what you are after, but the rest of the code might do the trick.
Imports System.IO
Dim bmp As Bitmap = CType(Bitmap.FromFile("C:\inetpub\wwwroot\TestBed\file.bmp"), Bitmap)
Dim ico As Icon = Icon.FromHandle(bmp.GetHicon())
Dim file As FileStream = New FileStream("C:\inetpub\wwwroot\TestBed\file.ico", FileMode.OpenOrCreate)
ico.Save(file)
file.Close()
ico.Dispose()