WPF

void MainWindow_Loaded(object sender, RoutedEventArgs e)
{
    IntPtr mainWindowPtr = new WindowInteropHelper(this).Handle;
    HwndSource mainWindowSrc = HwndSource.FromHwnd(mainWindowPtr);

    //mainWindowSrc.CompositionTarget.RenderMode = RenderMode.SoftwareOnly;          //  <=== UNCOMMENT THIS LINE

    mainWindowSrc.CompositionTarget.BackgroundColor = Color.FromArgb(0, 0, 0, 0);

    // Get System Dpi
    System.Drawing.Graphics desktop = System.Drawing.Graphics.FromHwnd(mainWindowPtr);

    float DesktopDpiX = desktop.DpiX;
    float DesktopDpiY = desktop.DpiY;

    // Set Margins
    MARGINS margins = new MARGINS();

    // Extend glass frame into client area
    // Note that the default desktop Dpi is 96dpi. The  margins are
    // adjusted for the system Dpi.
    margins.cxLeftWidth = Convert.ToInt32(5 * (DesktopDpiX / 96));
    margins.cxRightWidth = Convert.ToInt32(5 * (DesktopDpiX / 96));
    margins.cyTopHeight = Convert.ToInt32(((int)90) * (DesktopDpiX / 96));
    margins.cyBottomHeight = Convert.ToInt32(5 * (DesktopDpiX / 96));

    int hr = DwmExtendFrameIntoClientArea(mainWindowSrc.Handle, ref margins);
    //
    if (hr < 0)
    {
        //DwmExtendFrameIntoClientArea Failed
    }
}

Private Shared Sub CreateNewWindow(Of T As Window)(ByVal newThread As Boolean, ByVal onOpened As Action(Of T), ByVal ParamArray args() As Object)
        Dim activateWindow As Action = Sub()
                                           Dim window As T = DirectCast(Activator.CreateInstance(GetType(T), args), T)
                                           AddHandler window.Closed, Sub(s, e)
                                                                         window.Dispatcher.BeginInvokeShutdown(DispatcherPriority.Background)
                                                                     End Sub
                                           window.Show()
                                           If onOpened IsNot Nothing Then
                                               onOpened(window)
                                           End If
                                       End Sub
        If newThread Then
            Dim newWindowThread As New Thread(New ThreadStart(Sub()
                                                                  SynchronizationContext.SetSynchronizationContext(New DispatcherSynchronizationContext(Dispatcher.CurrentDispatcher))
                                                                  activateWindow()
                                                                  System.Windows.Threading.Dispatcher.Run()
                                                              End Sub))
            newWindowThread.SetApartmentState(ApartmentState.STA)
            newWindowThread.IsBackground = True
            newWindowThread.Start()
        Else
            activateWindow()
        End If
    End Sub

Public Sub New(properties As WindowProperties)
        InitializeComponent()
        _ticket = properties.Ticket
        Me.Top = properties.Top
        SetupWindow()
    End Sub

Private Sub SetupWindow()
       Try
           TitleBarColor = currentSettings.DefaultTicketBrush
           _stop = New ManualResetEvent(False)

           Me.Name = "TicketWindow_" & Ticket.id
           Me.RegisterName(Me.Name, Me)

           If currentSettings.FadeInTicketWindow Then
               Dim fadeInAnimation As New DoubleAnimation
               With fadeInAnimation
                   .From = 0.0
                   .To = 1.0
                   .Duration = New Duration(TimeSpan.FromSeconds(0.75))
                   .AutoReverse = False
               End With

               fadeInStoryboard = New Storyboard
               fadeInStoryboard.Children.Add(fadeInAnimation)
               Storyboard.SetTargetName(fadeInAnimation, Me.Name)
               Storyboard.SetTargetProperty(fadeInAnimation, New PropertyPath(Window.OpacityProperty))
               fadeInStoryboard.Begin(Me)
           End If
       Catch ex As Exception
           Dim m As String = ex.Message
       End Try
   End Sub

Public Property TitleBarColor As Brush
        Get
            Return _titleBarColor
        End Get
        Private Set(value As Brush)
            Try
                _titleBarColor = value
                RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("TitleBarColor"))
            Catch ex As Exception
                Dim m As String = ex.Message
            End Try
        End Set
    End Property

LTitleBar.Dispatcher.Invoke(New Action(Sub()
                                           LTitleBar.Fill = value
                                       End Sub))

public enum MyEnum
{
    [Description("This is enum A")]
    EnumA,

    [Description("This is enum B")]
    EnumB,

    [Description("This is enum C")]
    EnumC,
}
}

<Window.Resources>
    <ResourceDictionary>

        <ObjectDataProvider x:Key="projectTypeList" 
                            MethodName="GetValues" 
                            ObjectType="{x:Type enums:MyEnum}">
            <ObjectDataProvider.MethodParameters>
                <x:Type TypeName="enums:MyEnum"/>
            </ObjectDataProvider.MethodParameters>
        </ObjectDataProvider>

    </ResourceDictionary>

</Window.Resources>

<DataGrid Grid.Row="1">

    <DataGrid.Columns>


        <DataGridComboBoxColumn Header="Project Type"
                                ItemsSource="{Binding Source={StaticResource projectTypeList}}"
                                Width="150"/>


    </DataGrid.Columns>

</DataGrid>

<Grid x:Name="LayoutRoot">
    <Grid.RowDefinitions>
        <RowDefinition Height="*"/>
        <RowDefinition Height="*"/>
        <RowDefinition Height="*"/>
        <RowDefinition Height="30"/>
    </Grid.RowDefinitions>
    <Grid x:Name="box1" Grid.Row="0" AllowDrop="True" Drop="box_Drop" >
        <Grid x:Name="grid1" Background="Aqua" Margin="15" MouseMove="grid_MouseMove">
            <Grid.RowDefinitions>
                <RowDefinition Height="*" />
                <RowDefinition Height="*" />
                <RowDefinition Height="*" />
            </Grid.RowDefinitions>
            <Grid.ColumnDefinitions>
                <ColumnDefinition Width="28*" />
                <ColumnDefinition Width="445*" />
            </Grid.ColumnDefinitions>
            <Grid Grid.Column="0" Grid.Row="0">
                <TextBlock Text="1"></TextBlock>
            </Grid>
            <Grid Grid.Column="0" Grid.Row="1">
                <TextBlock Text="2"></TextBlock>
            </Grid>
            <Grid Grid.Column="0" Grid.Row="2">
                <TextBlock Text="3"></TextBlock>
            </Grid>
            <StackPanel Name="firsts" AllowDrop="True" Drop="box_Drop_first" Grid.Row="0" Grid.Column="1"  >

                <StackPanel MouseMove="grid_MouseMove_first" Name="firstsrow"  Margin="2" Background="Beige" Height="17"></StackPanel>
                </StackPanel>
            <StackPanel Name="seconds" AllowDrop="True" Grid.Row="1" Grid.Column="1" Drop="box_Drop_first"  >
                <StackPanel MouseMove="grid_MouseMove_first" Name="secondrow"  Margin="2" Background="Gainsboro" Height="17"></StackPanel>
                </StackPanel>
            <StackPanel Name="thirds" AllowDrop="True" Grid.Row="2" Grid.Column="1" Drop="box_Drop_first" >
                <StackPanel MouseMove="grid_MouseMove_first"  Name="thirdrow"  Margin="2" Background="Red" Height="17"></StackPanel>
                </StackPanel>
        </Grid>
    </Grid>
    <Grid x:Name="box2" Grid.Row="1" AllowDrop="True" Drop="box_Drop">
        <Grid x:Name="grid2" Background="blue" Margin="15" MouseMove="grid_MouseMove">
            <Grid.RowDefinitions>
                <RowDefinition Height="*" />
                <RowDefinition Height="*" />
                <RowDefinition Height="*" />
            </Grid.RowDefinitions>
            <Grid.ColumnDefinitions>
                <ColumnDefinition Width="28*" />
                <ColumnDefinition Width="445*" />
            </Grid.ColumnDefinitions>
        </Grid>
    </Grid>
    <Grid x:Name="box3" Grid.Row="2" AllowDrop="True" Drop="box_Drop">
        <TextBlock  Text="3" HorizontalAlignment="Left" Width="30" Margin="10,0,0,77"></TextBlock>
        <Grid x:Name="grid3" Background="green" Margin="15" MouseMove="grid_MouseMove">
        </Grid>

    </Grid>

</Grid>

public partial class Window1 : Window
  {
      public Window1()
      {
          InitializeComponent();
      }


      private void grid_MouseMove(object sender, MouseEventArgs e)
      {
          // Get the grid that is the source of drag
          Grid selectedGrid = sender as Grid;

          if (selectedGrid != null && e.LeftButton == MouseButtonState.Pressed)
          {
              // Add that grid as drag source and data
              DragDrop.DoDragDrop(selectedGrid, selectedGrid, DragDropEffects.Move);
          }
      }

      private void box_Drop(object sender, DragEventArgs e)
      {
          // Get the selected box in which the object is being dropped
          Grid selectedBox = sender as Grid;

          if (selectedBox != null)
          {
              // Get that data that is being dropped - in this case, the grid from other box
              Grid droppedGrid = (Grid)e.Data.GetData(typeof(Grid));

              // We need to remove the dragged grid from it's source box in order to be able to add it to selected box
              Grid sourceBox = (Grid)droppedGrid.Parent;
              // Remove the dropped grid from source box
              sourceBox.Children.Remove(droppedGrid);

              // We need to remove the other grid from the selected box in order to be able to move it to source box
              // Get existing child element, the box has only one child - the grid that we need
              Grid existingChild = (Grid)selectedBox.Children[0];
              // Remove existing child grid from selected box
              selectedBox.Children.Remove(existingChild);

              // Finally, move grids to new boxes
              // Move existing child grid to source box
              sourceBox.Children.Add(existingChild);
              // Move the dropped grid to selected box
              selectedBox.Children.Add(droppedGrid);
          }
      }


      private void box_Drop_first(object sender, DragEventArgs e)
      {
          StackPanel selectedBox = sender as StackPanel;

          if (selectedBox != null)
          {
              // Get that data that is being dropped - in this case, the grid from other box
              StackPanel droppedGrid = (StackPanel)e.Data.GetData(typeof(StackPanel));

              // We need to remove the dragged grid from it's source box in order to be able to add it to selected box
            //  StackPanel sourceBox = new StackPanel();
            StackPanel  sourceBox = (StackPanel)droppedGrid.Parent;
              // Remove the dropped grid from source box
              sourceBox.Children.Remove(droppedGrid);

              // We need to remove the other grid from the selected box in order to be able to move it to source box
              // Get existing child element, the box has only one child - the grid that we need
              StackPanel existingChild = (StackPanel)selectedBox.Children[0];
              // Remove existing child grid from selected box
              selectedBox.Children.Remove(existingChild);

              // Finally, move grids to new boxes
              // Move existing child grid to source box
              sourceBox.Children.Add(existingChild);
              // Move the dropped grid to selected box
              selectedBox.Children.Add(droppedGrid);
          }
      }

      private void grid_MouseMove_first(object sender, MouseEventArgs e)
      {
          StackPanel selectedGrid = sender as StackPanel;

          if (selectedGrid != null && e.LeftButton == MouseButtonState.Pressed)
          {
              // Add that grid as drag source and data
              DragDrop.DoDragDrop(selectedGrid, selectedGrid, DragDropEffects.Move);
          }
      }
  }

<Window x:Class="TicketWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="Ticket Window" Height="300" Width="300"
        WindowStyle="None" ShowInTaskbar="False">

    <WindowChrome.WindowChrome>
        <WindowChrome CaptionHeight="{Binding ActualHeight,ElementName=titlebar}"/>
    </WindowChrome.WindowChrome>
    <DockPanel LastChildFill="True">
        <Border Background="{DynamicResource {x:Static SystemColors.ScrollBarBrushKey}}" DockPanel.Dock="Top" Height="25" x:Name="titlebar">
            <TextBlock Text="{Binding Title, RelativeSource={RelativeSource FindAncestor,AncestorType=Window},FallbackValue=Title}" 
                       Margin="10,0,0,0"
                       VerticalAlignment="Center">
                <TextBlock.Effect>
                    <DropShadowEffect Color="White" ShadowDepth="3"/>
                </TextBlock.Effect>
            </TextBlock>
        </Border>
        <Border BorderBrush="LightGray" BorderThickness="1" Padding="4">
            <TextBlock><Run Text="Window content"/><InlineUIContainer>
            		<Button Content="Button" Width="75" Click="Button_Click"/>
            	</InlineUIContainer></TextBlock>
        </Border>
    </DockPanel>
</Window>

Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
     Try
         Dim thread As New Thread(AddressOf ChangeTitleBarColor)
         thread.Start()
     Catch ex As Exception
         Dim m As String = ex.Message
     End Try
 End Sub

Private Sub ChangeTitleBarColor()
    Try
        titlebar.Dispatcher.Invoke(Threading.DispatcherPriority.Render, Sub()
                                                                            titlebar.Background = Brushes.Green
                                                                        End Sub)
        Thread.Sleep(500)
        titlebar.Dispatcher.Invoke(Threading.DispatcherPriority.Render, Sub()
                                                                            titlebar.Background = Brushes.Red
                                                                        End Sub)
        Thread.Sleep(500)
    Catch ex As Exception
        Dim m As String = ex.Message
    End Try
End Sub

Private Sub ChangeTitleBarColor()
        Try
            titlebar.Dispatcher.Invoke(Threading.DispatcherPriority.Render, Sub()
                                                                                titlebar.Background = Brushes.Green
                                                                                Thread.Sleep(500)
                                                                                titlebar.Background = Brushes.Red
                                                                            End Sub)
        Catch ex As Exception
            Dim m As String = ex.Message
        End Try
    End Sub

Private Sub ChangeTitleBarColor()
       Try
           While True
               titlebar.Dispatcher.Invoke(Threading.DispatcherPriority.Render, Sub()
                                                                                   titlebar.Background = Brushes.Green
                                                                               End Sub)
               Thread.Sleep(500)
               titlebar.Dispatcher.Invoke(Threading.DispatcherPriority.Render, Sub()
                                                                                   titlebar.Background = Brushes.Red
                                                                               End Sub)
               Thread.Sleep(500)
           End While
       Catch ex As Exception
           Dim m As String = ex.Message
       End Try