 hWndOwner As Long)

   ' Set up the CLSID of the Shell Extension which
   ' contains the ICDBurn implementation:
   Dim clsidCDBurn As UUID
   With clsidCDBurn
      .Data1 = &amp;HFBEB8A05
      .Data2 = &amp;HBEEE
      .Data3 = &amp;H4442
      .Data4(0) = &amp;H80
      .Data4(1) = &amp;H4E
      .Data4(2) = &amp;H40
      .Data4(3) = &amp;H9D
      .Data4(4) = &amp;H6C
      .Data4(5) = &amp;H45
      .Data4(6) = &amp;H15
      .Data4(7) = &amp;HE9
   End With

   ' Set up the IID of the ICDBurn inter