Imports Microsoft.Xna.Framework.Input
Imports Microsoft.Xna.Framework.Input.GamePadState
Imports Microsoft.Xna.Framework
Imports Microsoft.Xna.Framework.Graphics
Imports Microsoft.Xna.Framework.Game
Imports Microsoft.Xna.Framework.PlayerIndex
Imports Microsoft.Xna.Framework.Input.Buttons
 
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
 
        Dim currentState As GamePadState = GamePad.GetState( _
          Microsoft.Xna.Framework.PlayerIndex.One)
 
 
        If currentState.IsConnected Then
            Label3.Text = "Controller Connected"
 
            Select Case currentState.IsButtonDown(currentState.DPad.Up)
                Case True
                    CheckBox13.Checked = False
                Case False
                    CheckBox13.Checked = True
            End Select
 
        Else
            Label3.Text = "Controller Disconnected"
        End If
    End Sub
End Class