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") EndwithHope this helps