//File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Controls Namespace WpfApplication1 Public Partial Class Window1 Inherits Window Public Sub New() InitializeComponent() End Sub Private Sub Button_Click(sender As Object, e As RoutedEventArgs) Dim borderInTemplate As Border = DirectCast(button.Template.FindName("border", button), Border) Console.WriteLine(borderInTemplate.GetValue(Border.ActualWidthProperty)) End Sub End Class End Namespace