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