Visual Basic - Como utilizo el joystick en una aplicacion

Como puedo recibir datos desde el joystick para utilizarla en una aplicacion.

En guille.costasol.net en la seccion colabora en alguna de sus paginas existe una explicacion del uso del joystick

El autor de esto es Francisco Charte, no es mio...
Incluiye esto en un Módulo:
Declare Function joyGetNumDevs Lib "WINMM" () As Long
Declare Function joyGetPos Lib "WINMM" (ByVal uJoyID As Long, lpCaps As JOYINFO) As Long
Type JOYINFO
wXpos As Long ´ x position
wYpos As Long ´ y position
wZpos As Long ´ z position
wButtons As Long ´ button states
End Type
´ Constantes
Global Const JOY_BUTTON1 = &H1
Global Const JOY_BUTTON2 = &H2
Global Const JOYSTICKID1 = 0
Global Const JOYSTICKID2 = 1
Global Const MAXPNAMELEN = 32 ´max product name length (including NULL)
***Quizá tengas que adaptar las Declaraciones para actualizarlas, por ejemplo (la primera):
Antes: Declare Function joyGetNumDevs Lib "WINMM" () As Long
Ahora: Declare Function joyGetNumDevs Lib "winmm.dll" Alias "joyGetNumDev" () As Long
etc.etc.etc.
sigue...

**PARTE II**
Incluiye esto en un Formulario:
Private Sub Form_Load()
Dim Pos As JOYINFO, Error As Long
Error = joyGetPos(JOYSTICKID1, Pos) ´ Intentar leer la posición
´ Si no está instalado el controlador o no está conectada la palanca de juegos
If joyGetNumDevs = 0 Or Error <> 0 Then
MsgBox "No hay palanca de juegos instalada" ´ indicarlo
End ´ y no continuar
End If
End Sub
sigue...

**Y PARTE III**
Incluiye esto en un Formulario:
Private Sub Reloj_Timer() ´esto es un Timer llamado Reloj
´ Cada décima de segundo aproximadamente
Dim Pos As JOYINFO, X As Long, Y As Long
joyGetPos JOYSTICKID1, Pos ´ Leer la posición de la palanca
´ Ajustar los valores si es necesario
If Pos.wXpos < 0 Then X = 65536 + Pos.wXpos Else X = Pos.wXpos
If Pos.wYpos < 0 Then Y = 65536 + Pos.wYpos Else Y = Pos.wYpos
If Pos.wButtons And JOY_BUTTON2 Then ´ Si se pulsa el segundo botón
´ Dibujar una cruz en esa posición
Line (X - 1000, Y - 1000)-(X + 1000, Y + 1000)
Line (X - 1000, Y + 1000)-(X + 1000, Y - 1000)
End If
´ Si está pulsado el primer botón
If Pos.wButtons And JOY_BUTTON1 Then
Cls ´ borrar el formulario
End If
End Sub