VB Forum / Win API / August 2008

Declarations:
Private Declare Function joySetCapture Lib "winmm.dll" (ByVal hWnd As
Long, ByVal uJoyID As Long, ByVal uPeriod As Long, ByVal fChanged As
Long) As Long
Private Declare Function joyReleaseCapture Lib "winmm.dll" (ByVal uJoyID
As Long) As Long

'Capture the joystick
If joySetCapture(CaptureForm.hWnd, IntIndex, 100, -1) = 0 Then
  Captured = True
End If

Private Function SubClassed_WindowProc(ByVal hWnd As Long, ByVal Msg As
Long, ByVal wParam As Long, ByVal lParam As Long, Handled As Boolean) As
Long
  Select Case Msg
  Case MM_JOY1MOVE, MM_JOY1ZMOVE, MM_JOY1BUTTONDOWN, MM_JOY1BUTTONUP,
MM_JOY2MOVE, MM_JOY2ZMOVE, MM_JOY2BUTTONDOWN, MM_JOY2BUTTONUP
    RaiseEvent JoystickEvent(Msg, wParam, lParam)
    Handled = True
  End Select
End Function

'Release the capture
If Captured Then
  joyReleaseCapture IntIndex
  Captured = False
End If

IntIndex is 0 for the first device, and ReleaseCapture() returns 0 every
time.

All my code did on reception of the event was beep which it does
profusely the first time I capture it, but never on subsequent attempts.

There is no other code involved in the capture, and I'm not the only
person to have seen this (although I can't find the post now)

The results are the same regardless of the interval, changed flag or the
threshold so they are not the problem.