RobinJ - Iconifier

' pbProgress is a custom progressbar I made, that's why there's a IncreaseOrDecreaseValue value, it increases or decreases the value of the progressbar gradually, as to create a  sort of animation.
' PicBox is a PictureBox
' dlgOpen is a OpenFileDialog
' btnSave is the save button
' btnOpen is the open button

Public Class Main

    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        Me.Enabled = False
        pbProgress.Visible = True

        Try
            If dlgOpen.ShowDialog = Windows.Forms.DialogResult.OK Then
                pbProgress.IncreaseOrDecreaseValue(25)
                PicBox.Image = Image.FromFile(dlgOpen.FileName)
                pbProgress.IncreaseOrDecreaseValue(100)
                btnSave.Enabled = True
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxSetForeground)
            btnSave.Enabled = False
            PicBox.Image = Nothing
        End Try

        pbProgress.Visible = False
        pbProgress.Value = 0
        Me.Enabled = True
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Me.Enabled = False
        pbProgress.Visible = True

        Try
            If dlgSave.ShowDialog = Windows.Forms.DialogResult.OK Then
                pbProgress.IncreaseOrDecreaseValue(10)
                Dim FileStream As IO.Stream = IO.File.OpenWrite(dlgSave.FileName)
                pbProgress.IncreaseOrDecreaseValue(20)
                Dim Bitmap As Bitmap = PicBox.Image
                pbProgress.IncreaseOrDecreaseValue(30)
                Dim Icon As IntPtr = Bitmap.GetHicon()
                pbProgress.IncreaseOrDecreaseValue(40)
                Dim NewIcon As Icon = Drawing.Icon.FromHandle(Icon)
                pbProgress.IncreaseOrDecreaseValue(50)
                Me.Icon = NewIcon
                pbProgress.IncreaseOrDecreaseValue(60)
                NewIcon.Save(FileStream)
                pbProgress.IncreaseOrDecreaseValue(100)
                btnSave.Enabled = False
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxSetForeground)
            btnSave.Enabled = False
        End Try

        PicBox.Image = Nothing
        pbProgress.Visible = False
        pbProgress.Value = 0
        Me.Enabled = True
    End Sub
End Class