WPF

private void btnLogin_Click(object sender, RoutedEventArgs e)
        {
            Applic ap = new Applic();
            SwitchboardView sbv = new SwitchboardView();
            
            ap.MainGridApplic.Children.Add(sbv);
 
        }

<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