[VB6] Presenza di programma installato (tramite REG)

Ciao a tutti.... dopo 2 giorni di scervellamenti mi sono arreso e scrivo qua... spero che qualcuno mi aiuti che sennò ne esco pazzo! Devo "semplicemente" controllare l'esistenza o meno di una chiave di registro da me specificata... so che bisogna usare la libreria API advapi32.dll da me in possesso. Mi sono documentato e ho chiesto ad amici e sono arrivato a questo punto:

Codice:

---

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _
    (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
    ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Sub Form_Load()
Const KEY_READ = &H20019
Dim handle As Long
Dim KeyName As String
KeyName = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\CCleaner"
If RegOpenKeyEx(HKEY_LOCAL_MACHINE, KeyName, 0, KEY_READ, handle) <> ERROR_SUCCESS Then
Label1 = "non esiste proprio :nono:"
Else
Label1 = "esiste :sisi:"
End If
End Sub

---

Io quella chiave ce l'ho avendo il programma installato, ma lui continua a dirmi che non esiste! Ho fatto un sacco di tentativi cambiando piccoli pezzi qua, là... ma nulla! Ditemi dove sbaglio! (naturalmente la libreria si trova nella stessa directory del progetto :P)


PS: documentandomi ho trovato questi, ed è da qui che ho preso un po' tutto... vedete se capite dove ho sbagliato T_T
http://www.windowsdevcenter.com/pub...try_Values.html
http://www.vbsimple.net/index.htm?/howto/ht_044.htm
http://www.devx.com/vb2themax/Tip/19134