well i found the problem, i changed
vb Code:
  1. Private Const HKEY_LOCAL_MACHINE = &H80000001
to
vb Code:
  1. Private Const HKEY_LOCAL_MACHINE = &H80000002
and it's working perfect