Mi Clase de Joystick

[LucifersAngel]

Bueno aca la clase que estoy creando para detectar los botones presionados

Joys_Class v1.0  :P

Código [Seleccionar] Expand

Public Sub Presionado()

With n_Input

    For C = 0 To 3
    Select Case C
       
        Case 0
            With .Joystick(0)
                For B = 1 To 12
                If .Button(B) = True Then
                MsgBox ("Apreto joystick:" & C & " " & B)
                End If
                Next
            End With
       
        Case 1
            With .Joystick(1)
                For B = 1 To 12
                If .Button(B) = True Then
                MsgBox ("Apreto joystick:" & C & " " & B)
                End If
                Next
            End With
                   
        Case 2
            With .Joystick(2)
                For B = 1 To 12
                If .Button(B) = True Then
                MsgBox ("Apreto joystick:" & C & " " & B)
                End If
                Next
            End With
           
        Case 3
            With .Joystick(3)
                For B = 1 To 12
                If .Button(B) = True Then
                MsgBox ("Apreto joystick:" & C & " " & B)
                End If
                Next
            End With
               
    End Select
    Next
End With

End Sub



Hasta ahora detecta todos los botones , me faltan los ejes X Y  :D