Type joyinfo
    wXpos As Integer
    wYpos As Integer
    wZpos As Integer
    wButtons As Integer
End Type

Type joycaps
    wMid As Integer
    wPid As Integer
    szPName As String
    wXmin As Integer
    wXmax As Integer
    wYmin As Integer
    wYmax As Integer
    wZmin As Integer
    wZmax As Integer
    wNumButtons As Integer
    wPeriodMin As Integer
    wPeriodMax As Integer
End Type

Declare Function joyGetNumDevs Lib "MMSYSTEM" () As Integer
Declare Function joyGetDevCaps Lib "MMSYSTEM" (ByVal wJoyID As Integer, lpJoyCaps As joycaps, ByVal wSize As Integer) As Integer
Declare Function joyGetPos Lib "MMSYSTEM" (wJoyID As Integer, lpJoyInfo As joyinfo_tag) As Integer