Save Picturebox image as icon

[Computer Guru]

On Error Resume Next

Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog. InitialDirector y = My.Computer.Fil eSystem.Special Directories.MyD ocuments
SaveFileDialog. Filter = "Icon (*.ico)|*.ico"
If (SaveFileDialog .ShowDialog(Me) = System.Windows. Forms.DialogRes ult.OK) Then


Dim sFilename As String = SaveFileDialog. FileName





Dim fs As IO.Stream
Dim NewIcon As Icon
Dim FileName As String = sFilename


fs = IO.File.OpenWri te(FileName)
Dim Bitmap As Bitmap = PictureBox1.Ima ge
Dim Hicon As IntPtr = Bitmap.GetHicon ()
NewIcon = Drawing.Icon.Fr omHandle(Hicon)
Me.Icon = NewIcon
NewIcon.Save(fs )




End If