Bonjour à tous

Je suis novice en VB.net j'essaye de faire tourner ce code mais il démarre et puis rien. J'essaye pas à pas mais il n'arrive même pas au loaod
Quelqu'un aurait-il une idée?

Module Module1
    Declare Function joyGetPosEx Lib "winmm.dll" (ByVal uJoyID As Long, ByVal pji As Type_JoyInfoEx) As Integer

    Public Const JOY_RETURN_ALL = &HFFF

    Structure Type_JoyInfoEx
        Dim dwSize As Integer              '  taille de la structure
        Dim dwFlags As Integer               '  flags to indicate what to return
        Dim dwXpos As Integer               '  x position
        Dim dwYpos As Integer               '  y position
        Dim dwZpos As Integer               '  z position
        Dim dwRpos As Integer               '  rudder/4th axis position
        Dim dwUpos As Integer                '  5th axis position
        Dim dwVpos As Integer                '  6th axis position
        Dim dwButtons As Integer             '  etats des bouttons
        Dim dwButtonNumber As Integer       '  numero du bouton presse actuellement
        Dim dwPOV As Integer                 '  point of view state
        Dim dwReserved1 As Integer               '  reserved for communication between winmm driver
        Dim dwReserved2 As Integer              '  reserved for future expansion
    End Structure

    Public Manette As Type_JoyInfoEx

End Module


Public Class Form1

    Private Sub Form_Load()


        Timer1.Interval = 10
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Timer()


        Manette.dwSize = 64
        Manette.dwFlags = JOY_RETURN_ALL

        joyGetPosEx(0, Manette) ' Envoi toutes les informations du contrôleur n°0 dans "Manette"
        'Call joyGetPosEx(1, Manette) ' Envoi toutes les informations du contrôleur n°1 dans "Manette"
        'Call joyGetPosEx(2, Manette) ' Envoi toutes les informations du contrôleur n°2 dans "Manette"

        Label1.Text = _
                "Xpos =" + Str$(Manette.dwXpos) + vbLf _
              + "Ypos =" + Str$(Manette.dwYpos) + vbLf _
              + "Zpos =" + Str$(Manette.dwZpos) + vbLf _
              + "Rpos =" + Str$(Manette.dwRpos) + vbLf _
              + "Upos =" + Str$(Manette.dwUpos) + vbLf _
              + "Vpos =" + Str$(Manette.dwVpos) + vbLf _
              + "'Point de vue' =" + Str$(Manette.dwPOV) + vbLf _
              + "qté boutons appuyés =" + Str$(Manette.dwButtonNumber) + vbLf _
              + "état boutons =" + Str$(Manette.dwButtons)

    End Sub



End Class