Imports Microsoft.Xna.Framework
Imports Microsoft.Xna.Framework.Input
 
Public Class Form1
    Private WithEvents T As New Timer With {.Enabled = True}
    Private Cb As New CheckBox With {.Parent = Me}
 
    Private Sub T_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles T.Tick
        Dim currentState As GamePadState = GamePad.GetState( _
        Microsoft.Xna.Framework.PlayerIndex.One)
        If currentState.IsConnected Then
            Me.Text = "Controller Connected"
            Cb.Checked = currentState.IsButtonDown(Buttons.DPadUp)
        Else
            Me.Text = "Controller Disconnected"
        End If
    End Sub
End Class