Dim loConfiguration As CDO.Configuration = New CDO.Configuration
        Dim loField As ADODB.Fields
        Dim loMessage As CDO.Message = New CDO.Message
        Dim loStream As ADODB.Stream

        ' Define the cookie
        loField = loConfiguration.Fields
        loField(CDO.CdoConfiguration.cdoHTTPCookies).Value = ""

        ' Make sure we set the cookie
        loMessage.Configuration = loConfiguration

        ' Go get the page
        loMessage.CreateMHTMLBody("http://www.levelextreme.com", CDO.CdoMHTMLFlags.cdoSuppressNone, "", "")
        loStream = loMessage.GetStream()

        ' Save to file
        loStream.SaveToFile("D:\Test.mhtml")