//File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Text Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Namespace ControlTemplates Public Partial Class GradientButtonTest Inherits System.Windows.Window Public Sub New() InitializeComponent() End Sub Private Sub Clicked(sender As Object, e As RoutedEventArgs) MessageBox.Show("You clicked " & DirectCast(sender, Button).Name) End Sub Private Sub chkGreen_Checked(sender As Object, e As RoutedEventArgs) Dim resourceDictionary As New ResourceDictionary() resourceDictionary.Source = New Uri("a.xaml", UriKind.Relative) Me.Resources.MergedDictionaries(0) = resourceDictionary End Sub Private Sub chkGreen_Unchecked(sender As Object, e As RoutedEventArgs) Dim resourceDictionary As New ResourceDictionary() resourceDictionary.Source = New Uri("b.xaml", UriKind.Relative) Me.Resources.MergedDictionaries(0) = resourceDictionary End Sub End Class End Namespace