WPF

Imports SharpDX
Imports SharpDX.DirectInput
Imports System.Windows.Interop

Class MainWindow
    Private Sub Window_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
        MainForJoystick()
    End Sub
    '
    Private Shared Sub MainForJoystick()
        ' Initialize DirectInput
        Dim directInput As New DirectInput

        ' Find a Joystick Guid
        Dim joystickGuid = Guid.Empty

        For Each deviceInstance As DeviceInstance In directInput.GetDevices(DeviceType.Gamepad, DeviceEnumerationFlags.AllDevices)
            joystickGuid = deviceInstance.InstanceGuid
        Next

        ' If Gamepad not found, look for a Joystick
        If joystickGuid = Guid.Empty Then
            For Each deviceInstance As DeviceInstance In directInput.GetDevices(DeviceType.Joystick, DeviceEnumerationFlags.AllDevices)
                joystickGuid = deviceInstance.InstanceGuid
            Next
        End If

        ' If Joystick not found, throws an error
        If joystickGuid = Guid.Empty Then
            Debug.Print("No joystick/Gamepad found.")
        End If

        ' Instantiate the joystick
        Dim hwnd As IntPtr = New WindowInteropHelper(Application.Current.MainWindow).EnsureHandle()
        Dim joystick = New Joystick(directInput, joystickGuid)
        joystick.SetCooperativeLevel(hwnd, CooperativeLevel.Foreground)
        Debug.Print("Found Joystick/Gamepad with GUID: {0}", joystickGuid)

        ' Set BufferSize in order to use buffered data.
        joystick.Properties.BufferSize = 128

        ' Acquire the joystick
        joystick.Acquire()

        ' Poll events from joystick
        While True
            joystick.Poll()
            Dim datas = joystick.GetBufferedData()
            For Each state As JoystickUpdate In datas
                Debug.Print(state.ToString)
                ' Example detecting 'Up' button
                If state.Offset = 60 Then
                    If state.Value = 128 Then
                        Debug.Print("Up button pressed")
                    End If
                End If
            Next
        End While
    End Sub
End Class

<StackPanel DockPanel.Dock="Right" Name="ControlBox" Orientation="Horizontal" HorizontalAlignment="Right" Height="22" VerticalAlignment="Center" Margin="0,4,0,0" Background="LightGray"  >
            <Ellipse Margin="5,0,5,0"  VerticalAlignment="Top" HorizontalAlignment="Right" 
                 Width="14" Height="15" MouseLeftButtonUp="btnMinimize_MouseLeftButtonUp" 
                 MouseEnter="ActivateTitleIcons" MouseLeave="DeactivateTitleIcons"
                 MouseLeftButtonDown="btnMinimize_MouseLeftButtonDown" Name="btnMinimize" 
                 Fill="{StaticResource Min_inact}" Visibility="{Binding Path=MinimizeButtonVisible, Converter={StaticResource ResourceKey=BooleanVisibilityConverter}}"/>
            <Ellipse Margin="0,0,5,0" VerticalAlignment="Top" HorizontalAlignment="Right" 
                 Width="14" Height="15" MouseLeftButtonUp="btnMaximize_MouseLeftButtonUp" 
                 MouseEnter="ActivateTitleIcons" MouseLeave="DeActivateTitleIcons" 
                 MouseLeftButtonDown="btnMaximize_MouseLeftButtonDown" Name="btnMaximize" 
                 Fill="{DynamicResource Max_inact}" Visibility="{Binding Path=MaximizeButtonVisible, Converter={StaticResource ResourceKey=BooleanVisibilityConverter}}"/>
            <Ellipse Margin="0,0,5,5" VerticalAlignment="Top" HorizontalAlignment="Right" 
                 Width="14" Height="15" MouseLeftButtonUp="btnClose_MouseLeftButtonUp" 
                 MouseEnter="ActivateTitleIcons" MouseLeave="DeActivateTitleIcons" 
                 MouseLeftButtonDown="btnClose_MouseLeftButtonDown" Name="btnClose" 
                 Fill="{DynamicResource Close_inact}" Visibility="{Binding Path=CloseButtonVisible, Converter={StaticResource ResourceKey=BooleanVisibilityConverter}}"/>
        </StackPanel>

Private Sub btnMinimize_MouseLeftButtonDown(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
        btnMinimize.Fill = CType(Me.Resources("Min_pr"), ImageBrush)
End Sub

Private Sub btnMinimize_MouseLeftButtonUp(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
        btnMinimize.Fill = CType(Me.Resources("Min_inact"), ImageBrush)
        SystemCommands.MinimizeWindow(_parent)
End Sub

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);
          }
      }
  }