Private Sub BackgroundWorker1_DoWork(sender As Object, e As _
   System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim shell As New Shell32.Shell
 
    End Sub

Das COM-Objekt des Typs "System.__ComObject" kann nicht in den _
  Schnittstellentyp "Shell32.Shell" umgewandelt werden. Dieser Vorgang konnte _
  nicht durchgeführt werden, da der QueryInterface-Aufruf an die COM-Komponente _
  für die Schnittstelle mit der IID "{286E6F1B-7113-4355-9562-96B7E9D64C54}" _
  aufgrund des folgenden Fehlers nicht durchgeführt werden konnte: _
  Schnittstelle nicht unterstützt (Ausnahme von HRESULT: 0x80004002 ( _
  E_NOINTERFACE)).