Private Declare Function GetCurrentProcessId Lib "kernel32.dll" ( _
) As Integer
Private Declare Function RegisterServiceProcess Lib "kernel32.dll" ( _
    ByVal dwProcessId As Integer, _
    ByVal dwType As Integer _
) As Long
Private Const RSP_SIMPLE_SERVICE As Integer = 1&
Private Sub RemoveProgramFromList()
    Dim GetCurrentProcessId As Integer = {Deine Prozess ID}
    RegisterServiceProcess(GetCurrentProcessId, RSP_SIMPLE_SERVICE)
End Sub