Bueno aca la clase que estoy creando para detectar los botones presionados
Joys_Class v1.0 :P
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