//File:Window.xaml.vb Imports System Imports System.Reflection Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Input Imports System.Windows.Media Namespace WpfApplication1 Public Partial Class CompileXamlWindow Inherits Window Public Sub New() InitializeComponent() For Each prop As PropertyInfo In GetType(Brushes).GetProperties() lstbox.Items.Add(prop.Name) Next End Sub Private Sub ButtonOnClick(sender As Object, args As RoutedEventArgs) Dim btn As Button = TryCast(sender, Button) MessageBox.Show(Convert.ToString(btn.Content) & "' has been clicked.") End Sub Private Sub ListBoxOnSelection(sender As Object, args As SelectionChangedEventArgs) Dim lstbox As ListBox = TryCast(sender, ListBox) Dim strItem As String = TryCast(lstbox.SelectedItem, String) Dim prop As PropertyInfo = GetType(Brushes).GetProperty(strItem) elips.Fill = DirectCast(prop.GetValue(Nothing, Nothing), Brush) End Sub End Class End Namespace