Do Locfile("system.prg") > >With _Screen.System.Drawing As xfcDrawing > >* Convert the original bitmap to ensure better quality and compatibility > loResized = .Bitmap.New(.Bitmap.FromFile(Getpict()), 16,16) > >* Create Icon Object > Local loIcon As xfcIcon > loIcon = .Icon.FromHandle(loResized.GetHicon()) > >*** LOW QUALITY ICONS > >* Save sending FileName > loIcon.Save("c:\Icon_Save_FileName_LowQual.ico") > >* Save Using Stream > Local loStream As xfcMemoryStream > loStream = _Screen.System.IO.MemoryStream.New() > > loIcon.Save(loStream) > Strtofile(loStream.GetBuffer(), "c:\Icon_Save_Stream_LowQual.Ico") > > >*** HIGH QUALITY ICONS >*** Setting the tlQuality flag to .T. > >* Save sending FileName > loIcon.Save("c:\Icon_Save_FileName_HighQual.ico", .T.) > >* Save Using Stream > Local loStream2 As xfcMemoryStream > loStream2 = _Screen.System.IO.MemoryStream.New() > > loIcon.Save(loStream2, .T.) > Strtofile(loStream2.GetBuffer(), "c:\Icon_Save_Stream_HighQual.Ico") > >Endwith>