WPF: Integrating our application with the Windows 7 Taskbar (I)

Class MainWindow

#Region "Window Code"
    Private Sub MainWindow_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        Me.TaskbarItemInfo.ProgressState = Shell.TaskbarItemProgressState.None
        Me.TaskbarItemInfo.Overlay = Nothing
    End Sub
#End Region

#Region "Taskbar IconOverlay"
    Private Sub btnIconBlack_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnIconBlack.Click
        Me.TaskbarItemInfo.Overlay = CType(Resources("IconBlack"), ImageSource)
    End Sub

    Private Sub btnIconBlue_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnIconBlue.Click
        Me.TaskbarItemInfo.Overlay = CType(Resources("IconBlue"), ImageSource)
    End Sub

    Private Sub btnIconGreen_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnIconGreen.Click
        Me.TaskbarItemInfo.Overlay = CType(Resources("IconGreen"), ImageSource)
    End Sub

    Private Sub btnIconPink_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnIconPink.Click
        Me.TaskbarItemInfo.Overlay = CType(Resources("IconPink"), ImageSource)
    End Sub

    Private Sub btnIconRed_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnIconRed.Click
        Me.TaskbarItemInfo.Overlay = CType(Resources("IconRed"), ImageSource)
    End Sub

    Private Sub btnIconReset_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnIconReset.Click
        Me.TaskbarItemInfo.Overlay = Nothing
    End Sub
#End Region

#Region "Taskbar ProgressBar"
    Private Sub SlidValue_ValueChanged(ByVal sender As Object, ByVal e As System.Windows.RoutedPropertyChangedEventArgs(Of Double)) Handles SlidValue.ValueChanged
        Me.TaskbarItemInfo.ProgressValue = SlidValue.Value / 100
    End Sub

    Private Sub cmbEstilos_SelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Controls.SelectionChangedEventArgs) Handles cmbEstilos.SelectionChanged
        Select Case DirectCast(e.AddedItems(0), System.Windows.Controls.ComboBoxItem).Content
            Case "Normal"
                SlidValue.IsEnabled = True
                Pbar.IsIndeterminate = False
                Me.TaskbarItemInfo.ProgressState = Shell.TaskbarItemProgressState.Normal
            Case "Error"
                SlidValue.IsEnabled = True
                Pbar.IsIndeterminate = False
                Me.TaskbarItemInfo.ProgressState = Shell.TaskbarItemProgressState.Error
            Case "Stop"
                SlidValue.IsEnabled = True
                Pbar.IsIndeterminate = False
                Me.TaskbarItemInfo.ProgressState = Shell.TaskbarItemProgressState.Paused
            Case "Indeterminate"
                SlidValue.IsEnabled = False
                Pbar.IsIndeterminate = True
                Me.TaskbarItemInfo.ProgressState = Shell.TaskbarItemProgressState.Indeterminate
            Case "None"
                SlidValue.IsEnabled = True
                Pbar.IsIndeterminate = False
                Me.TaskbarItemInfo.ProgressState = Shell.TaskbarItemProgressState.None
        End Select
    End Sub
#End Region
End Class