Vb net .10 и геймпад (джойстик)

Imports Microsoft.DirectX.DirectInput
Imports System
Imports System.Windows
Imports System.Windows.Threading
 
Namespace WheelWpf
    Public Partial Class MainWindow
        Inherits Window
        Private device As Device
        Private timer As DispatcherTimer = New DispatcherTimer()
        Private Sub timer_Tick(sender As Object, e As EventArgs)
            UpdateJoystickState()
        End Sub
        Private Sub UpdateJoystickState()
            Dim j = device.CurrentJoystickState
            Dim info = ""
            Dim buttons As Byte() = j.GetButtons()
            For i = 0 To buttons.Length - 1
                If buttons(i) <> 0 Then
                    info += "Button: " & i.ToString() & " "
                    Console.Beep(1000, 50)
                End If
            Next
            '   textBlock1.Text = j.ToString();
            Me.textBlock2.Text = info
            'Console.Beep(500, 500)
        End Sub
        Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)
            For Each instance As DeviceInstance In Manager.GetDevices(DeviceClass.GameControl, EnumDevicesFlags.AttachedOnly)
                device = New Device(instance.ProductGuid)
                ''device.SetCooperativeLevel(Nothing, CooperativeLevelFlags.Background Or CooperativeLevelFlags.NonExclusive)
                device.Acquire()
                Me.label1.Content = device.DeviceInformation.ProductName
                If Equals(device.DeviceInformation.ProductName, "Arduino Micro") Then
                    AddHandler timer.Tick, New EventHandler(AddressOf timer_Tick)
                    timer.Interval = New TimeSpan(0, 0, 0, 0, 50)
                    timer.Start()
                    Exit For
                End If
            Next
            Me.label1.Content = device.DeviceInformation.InstanceName
            '  label1.Content = device.DeviceInformation.ProductName;
        End Sub
    End Class
End Namespace