Windows 7 64 bit , VB 6.0

l have the foll procedure but when l press 'Enter' l get
'Run-time error '70'
Permission denied

Could someone tell me what is the problem . VB 6 is running with XP compatibility and full access to the project has been set .

Private Sub Dummy_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}"
End If
End Sub

Thanks