WPF VB.Net

    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="cursors" Height="450" Width="600" Loaded="OnLoaded">
  
    
      
    
    
      
      
    
    
      
      
      
    
  

  
    
      
        
          Cursor Type
          
            
            
          
        

        
          Scope of Cursor
          
            Display Area Only
            Entire Appliation
          

        
      
    
    
      
        Move Mouse Pointer Over This Area
      
    
  

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Media
Imports System.Windows.Input
Imports System.IO
Imports System.Collections
Namespace WpfApplication1
  Public Partial Class Window1
    Inherits Window
    Private CustomCursor As Cursor
    Public Sub New()
      CustomCursor = New Cursor(Directory.GetCurrentDirectory() & Path.DirectorySeparatorChar & "CustomCursor.cur")
    End Sub
    Public Sub CursorTypeChanged(sender As Object, e As SelectionChangedEventArgs)
      Dim source As ComboBox = TryCast(e.Source, ComboBox)
      If source IsNot Nothing Then
        Dim selectedCursor As ComboBoxItem = TryCast(source.SelectedItem, ComboBoxItem)
        Select Case selectedCursor.Content.ToString()
          Case "AppStarting"
            DisplayArea.Cursor = Cursors.AppStarting
            Exit Select
          Case "ArrowCD"
            DisplayArea.Cursor = Cursors.ArrowCD
            Exit Select
          Case Else
            Exit Select
        End Select
        If cursorScopeElementOnly = False Then
          Mouse.OverrideCursor = DisplayArea.Cursor
        End If
      End If
    End Sub
    Public Sub CursorScopeSelected(sender As Object, e As RoutedEventArgs)
      Dim source As RadioButton = TryCast(e.Source, RadioButton)
      If source IsNot Nothing Then
        If source.Name = "rbScopeElement" Then
          cursorScopeElementOnly = True
          Mouse.OverrideCursor = Nothing
        End If
        If source.Name = "rbScopeApplication" Then
          cursorScopeElementOnly = False
          Mouse.OverrideCursor = DisplayArea.Cursor
        End If
      End If
    End Sub
    Public Sub OnLoaded(sender As Object, e As RoutedEventArgs)
      DirectCast(CursorSelector.Items(0), ComboBoxItem).IsSelected = True
    End Sub
    Private cursorScopeElementOnly As Boolean = True
  End Class
End Namespace