Sendkeys and Directinput -

hy, i would like to no if somebody allready no a solution for sending a key to directx games,
i have following all reply`s and help request on different message boards and nobody have a solution
like you will no not one of the api`s for sending keys will work with directinput,
so if somebody have a suggestion.

i also got this code from the msdn site wich give me an error

Private Sub FlashLEDs()
Const ARRAYSIZE = 4

Dim rgdod As DIDEVICEOBJECTDATA

Static rgiBits(ARRAYSIZE - 1) As Integer
rgiBits(0) = 1
rgiBits(1) = 2
rgiBits(2) = 4
rgiBits(3) = 2
Static iLooper As Integer
iLooper = 0
Dim cdod As Long
cdod = 3 ' Number of items


Dim i As Integer

' lTimeStamp and lSequence must be set to 0
For i = 0 To 3
rgdod(i).lTimeStamp = 0
rgdod(i).lSequence = 0
Next i

rgdod(0).lOfs = NumLockID
rgdod(1).lOfs = CapsLockID
rgdod(2).lOfs = ScrollLockID

Select Case (rgiBits(iLooper) And 1)
Case Is = 0
rgdod(0).lData = 0
Case Is = 1
rgdod(0).lData = &H80 ' NumLock light on/off
End Select

Select Case (rgiBits(iLooper) And 2)
Case Is = 0
rgdod(1).lData = 0
Case Is = 1
rgdod(1).lData = &H80 ' CapsLock light on/off
End Select

Select Case (rgiBits(iLooper) And 4)
Case Is = 0
rgdod(2).lData = 0
Case Is = 1
' ScrollLock light on/off
End Select

iLooper = (iLooper + 1) Mod ARRAYSIZE ' Loops from 0 to 3

Call diDevKeyboard.SendDeviceData(cdod, rgdod) << error

End Sub

if somebody no how to fix this thanks
sorry for my bad inglish