Vb.net 如何使用mailkit在webview2中显示html电子邮件

我目前正在使用mailkit和visual basic构建一个基本的电子邮件客户端。我已经能够获取收件箱中的电子邮件，但现在我希望能够在web view 2中显示HTML电子邮件。mailkit的所有文档都是用C语言编写的，虽然我了解其中的大部分内容，但我不知道如何正确地将其转换为visual basic代码。以下是我一直在使用的链接：

这就是我写的：

Imports System
Imports MimeKit
Imports MailKit
Imports MailKit.Net.Imap
Imports MailKit.Security
Imports MailKit.Search
Imports System.Threading
Public Class ReceiveEmails
    Dim HasAttachment As Boolean = False
    Dim aryAttachments() As String
    Private Sub btnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click
        'Dim connectThread As New Thread(AddressOf Login)
        'connectThread.Start()
        BackgroundWorker1.RunWorkerAsync()

    End Sub
    Private Sub btnBack_Click(sender As Object, e As EventArgs) Handles btnBack.Click
        Me.Hide()
    End Sub
    Private Sub BackgroundWorker1_DoWork(sender As Object, e As ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        'normally a thread or background worker cannot update the UI, but the line below is a cheap way to accomplish this task
        'not the ideal way to update the UI apparently, but it works
        CheckForIllegalCrossThreadCalls = False

        Dim username As String = txtAccount.Text.ToString
        Dim password As String = txtPassword.Text
        Dim imapServerName As String = cmbServer.SelectedItem

        Dim imapServer As New ImapClient(New ProtocolLogger("imap.log"))
        Dim i As Integer = 0

        imapServer.Connect(imapServerName, 993, SecureSocketOptions.SslOnConnect)
        imapServer.Authenticate(username, password)
        imapServer.Inbox.Open(FolderAccess.ReadOnly)

        Dim emailMessage = imapServer.Inbox.GetMessage(i)

        For count As Integer = 0 To imapServer.Inbox.Count - 1
            emailMessage = imapServer.Inbox.GetMessage(count)
            'email subjects get listed in a list box
            listEmails.Items.Add(emailMessage.Subject)
        Next

        Dim query = SearchQuery.SubjectContains("")
        Dim uids = imapServer.Inbox.Search(query)

        Dim items = imapServer.Inbox.Fetch(uids, MessageSummaryItems.UniqueId)

    End Sub
End Class