WPF

<FontFamily x:Key="Digital">pack://application:,,,/Fonts/#DS-DIGI</FontFamily>

<Label Name="TimeLabel" Grid.Column="1" Foreground="White" FontSize="24" FontFamily="{StaticResource Digital}">00:00:00</Label>

Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Input

Public Class VerticalPaneExample
    Dim root = "c:\temp\"
    Dim matroot As String = ""
    Dim newtoolsti As String = ""
    Dim enodetext As String = ""


    Private Sub VerticalPaneExample_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        Dim folders() As String = IO.Directory.GetDirectories(root)
        For Each folder As String In folders
            Dim clean As String
            clean = folder.Replace(root, "")
            Me.matpicker.Items.Add(clean)
        Next
    End Sub

    Private Sub matpicker_AfterSelect(sender As Object, e As RoutedEventArgs) Handles matpicker.AfterSelect
        Me.matpicker.SelectedItem = matroot

        For Each direct As String In System.IO.Directory.GetDirectories(matroot)
            Dim dir As String = System.IO.Path.GetFileNameWithoutExtension(direct)
            Dim newNode = viewptffiles.Nodes.Add(dir, dir)
            RecurseChildFolders(direct, newNode)
            Try
                For Each file As String In System.IO.Directory.GetFiles(direct, "*.*")
                    newNode.Nodes.Add(System.IO.Path.GetFileName(file))
                Next
            Catch ex As Exception
            End Try
        Next

    Private Sub RecurseChildFolders(directory As String, parent As TreeNode)
        For Each direct As String In System.IO.Directory.GetDirectories(directory)
            Dim dir As String = System.IO.Path.GetFileNameWithoutExtension(direct)
            Dim child = parent.Nodes.Add(dir, dir)
            RecurseChildFolders(direct, child)
            Try
                For Each file As String In System.IO.Directory.GetFiles(direct, "*.*")
                    child.Nodes.Add(System.IO.Path.GetFileName(file))
                Next
            Catch ex As Exception
            End Try
        Next
    End Sub

End Class

<pre><UserControl x:Class="VerticalPaneExample"
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
             xmlns:local="clr-namespace:ExamplePowerMillPluginVB"
             mc:Ignorable="d" 
             d:DesignHeight="1000" 
             d:DesignWidth="450"
             Background="White">
    <Grid>
        <Grid.ColumnDefinitions>
            <ColumnDefinition Width="10"/>          <!-- magin -->
            <ColumnDefinition Width="380"/>         <!-- in -->
            <ColumnDefinition Width="10"/>          <!-- magin -->
        </Grid.ColumnDefinitions>
        <Grid.RowDefinitions>
            <RowDefinition Height="10"/>            <!-- magin -->
            <RowDefinition Height="auto"/>          <!-- combobox matriale picker -->
            <RowDefinition Height="10"/>            <!-- magin -->
            <RowDefinition Height="auto"/>          <!-- treeview -->
            <RowDefinition Height="10"/>            <!-- magin -->
            <RowDefinition Height="auto"/>          <!-- import toolbutton -->
            <RowDefinition Height="auto"/>            <!-- magin -->
        </Grid.RowDefinitions>
		
		
        <ComboBox
            x:Name="matpicker"
            Grid.Row="1" 
            Grid.Column="1"
            Height="20"
            Width="380" 
            SelectedIndex="-1"
        ></ComboBox>

        <ListBox 
            x:Name="viewptffiles"
            Grid.Row="3" 
            Grid.Column="1" 
            Height="500" 
            Width="380"
            />

		<Button 
            x:Name="Importt"
            Content="Import Tool"
            Grid.Row="5" 
            Grid.Column="1"
            Height="40"
        />
    </Grid>
</UserControl>

string[] columnNames = (from dc in BudgetTable.Columns.Cast<DataColumn>()
                        select dc.ColumnName).ToArray();

// Go through each column
foreach (string item in columnNames)
{
    //Creating binding
    Binding binding = new Binding(item);
    string styleName = "";

    if (item == "Type")
    {
        binding.Mode = BindingMode.OneTime;
        styleName = "budgetGridCellStyle";
    }
    else
    {
        binding.Mode = BindingMode.TwoWay;
        binding.UpdateSourceTrigger = UpdateSourceTrigger.PropertyChanged;
        styleName = "dataGridCurrencyCellStyle";
    }

    var style = Application.Current.FindResource(styleName) as Style;

    // Bind the column
    var col = new DataGridTextColumn()
    {
        Header = item,
        Binding = binding,
        Visibility = Visibility.Visible,
        CellStyle = style
    };

    DataGridColumns.Add(col);
}

<Style x:Key="dataGridCurrencyCellStyle" 
        BasedOn="{StaticResource dataGridCellStyle}"
        TargetType="{x:Type DataGridCell}">

    <Setter Property="TextBlock.Text" Value="{Binding StringFormat={}{0:0.##}}"/>
    <Setter Property="IsEnabled" Value="{Binding AreFieldsEnabled}"/>

</Style>

1. The string format setting is not being applied no matter what I change it to. What's the right way to do this?
2. The IsEnabled causes a BindingExpression error. AreFieldsEnabled is a bool property on the VM. How do I reference that from this style?