WPF VB.Net Tutorial

        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        x:Class="WpfApplication1.RoutedEventDemo.RoutedEventDemo"
        Title="Routed Event Demo">
    TextBlock with Context Menu
        
            
                
                
                
                
                
                
                
            
        

    

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Input
Imports System.Windows.Media
Namespace WpfApplication1.RoutedEventDemo
  Public Partial Class RoutedEventDemo
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub
    Private Sub MenuItemOnClick(sender As Object, args As RoutedEventArgs)
      Dim str As String = TryCast(TryCast(args.Source, MenuItem).Header, String)
      Dim clr As Color = CType(ColorConverter.ConvertFromString(str), Color)
      txtblk.Foreground = New SolidColorBrush(clr)
    End Sub
  End Class
End Namespace