'Hallo Mat...
 
'Um den bestehenden Schlüsselnamen wieder unter Run zu löschen fügen Sie den 
' folgenden Quelltext 'in Ihr Projekt ein :
 
'In eine Form
Private Sub Command2_Click()
'Funktionsaufruf zum löschen des Schlüsselnamens
    Call DelKeyValue(HKEY_LOCAL_MACHINE, _
                     "Software\Microsoft\Windows\CurrentVersion\Run", _
                     "MyPrivateApplication")
End Sub
 
'In ein Modul...
Private Declare Function RegOpenKey Lib "advapi32.dll" _
                                    Alias "RegOpenKeyA" _
                                    (ByVal hKey As Long, _
                                    ByVal lpSubKey As String, _
                                    phkResult As Long) _
                                    As Long
 
 
Private Declare Function RegDeleteValue Lib "advapi32.dll" _
                                    Alias "RegDeleteValueA" _
                                    (ByVal hKey As Long, _
                                    ByVal lpValueName As String) _
                                    As Long
 
Public Function DelKeyValue(ByVal lHkey As Long, ByVal sSubKey As String, _
                            ByVal slpValueName As String)
    Dim lResult             As Long
    Dim lRes                As Long
 
    lRes = RegOpenKey(lHkey, sSubKey, lResult)
    lRes = RegDeleteValue(lResult, slpValueName)
    lRes = RegCloseKey(lResult)
End Function
'
'MfG
'Frank