Imports Microsoft.Xna.Framework   '+Verweis auf das XNA.Framework setzen
Imports Microsoft.Xna.Framework.Input
 
Public Class Form1
    Private WithEvents T As New Timer With {.Enabled = True}
    Private WithEvents Pb As New PictureBox With {.Dock = DockStyle.Fill, _
      .Parent = Me}
    Private Fo As New Font("Arial", 12)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.SetBounds(0, 0, 400, 110)
    End Sub
 
    Private Sub T_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles T.Tick
        Pb.Invalidate()
    End Sub
 
    Private Sub Pb_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) _
      Handles Pb.Paint
        Dim gs As GamePadState = GamePad.GetState(PlayerIndex.One)
        With e.Graphics
            .DrawString("TriggersLeft", Fo, Brushes.Black, 220, 10)
            .FillRectangle(Brushes.Blue, 10, 10, gs.Triggers.Left * 200, 20)
            .DrawRectangle(Pens.Black, 10, 10, 200, 20)
 
            .DrawString("TriggersRight", Fo, Brushes.Black, 220, 35)
            .FillRectangle(Brushes.Red, 10, 35, gs.Triggers.Right * 200, 20)
            .DrawRectangle(Pens.Black, 10, 35, 200, 20)
        End With
    End Sub
End Class