Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load myjoyEX.dwSize = 64 myjoyEX.dwFlags = &HFF ' All information Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ' Get the joystick information Call joyGetPosEx(0, myjoyEX) Label1.Text = "x = " & myjoyEX.dwXpos.ToString Label2.Text = "y = " & myjoyEX.dwYpos.ToString Label3.Text = "x = " & myjoyEX.dwZpos.ToString Label4.Text = "y = " & myjoyEX.dwRpos.ToString Label5.Text = "hex:" & myjoyEX.dwButtons.ToString("X") & " dec:" & myjoyEX.dwButtons 'Print in Hex, so can see the individual bits associated with the buttons Label6.Text = "Nombre de boutons actifs : " & myjoyEX.dwButtonNumber.ToString 'number of buttons pressed at the same time Label7.Text = myjoyEX.dwPOV / 100 End Sub End Class