Increase Quality Of Icons

[SNIPER.PS]

Hello Guys

Im Using This Code To Convert Image To Icon , But The Icon File Quality Is Bad, How I Can Increase Its Quality

Dim Ico As Icon, Bmp As Bitmap
Bmp = New Bitmap(PictureBox1.Image, 32, 32)
Ico = Icon.FromHandle(CType(Bmp, Bitmap).GetHicon)
Dim IcoFile As Stream = File.Create( "C:\icon.ico")
Ico.Save(IcoFile) 

Thanks For All