WPF

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="MainWindow" Height="350" Width="525">
    <Grid>
        <Image Name="Image" Source="TwitterBirdsAttack.jpg" MouseMove="Image_MouseMove" MouseUp="Rectangle_MouseLeftButtonUp" />
        <Rectangle  Name="Rect"  Width="100" Height="100" Fill="Transparent"  Stroke="Red" StrokeThickness="5" MouseLeftButtonDown="Rectangle_MouseLeftButtonDown" MouseLeftButtonUp="Rectangle_MouseLeftButtonUp"  />
    </Grid>
</Window>

Class MainWindow 

    Private moveRect As Boolean
    Private trans As TranslateTransform = Nothing
    Private originalMousePosition As Point

    Private Sub Rectangle_MouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs)
        originalMousePosition = e.GetPosition(Image)
        moveRect = True
        Rect.IsHitTestVisible = False

    End Sub

    Private Sub Image_MouseMove(sender As Object, e As MouseEventArgs)
        If moveRect Then
            trans = TryCast(Rect.RenderTransform, TranslateTransform)
            If trans Is Nothing Then
                trans = New TranslateTransform()
                Rect.RenderTransform = trans
            End If

            trans.Y = -(originalMousePosition.Y - e.GetPosition(Image).Y)
            trans.X = -(originalMousePosition.X - e.GetPosition(Image).X)
        End If
    End Sub

    Private Sub Rectangle_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs)
        moveRect = False
        Rect.IsHitTestVisible = True
    End Sub

End Class

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