Vb.net TaskDialog-不存在图标

我从WindowsAPI代码包开始使用TaskDialog。除了此对话框上没有图标外，其他功能都很好。你知道为什么以及如何做到这一点吗

男女同校的例子：

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    Dim dialog As New TaskDialog()
    dialog.Caption = "Application Error"
    dialog.InstructionText = "CRASH AND BURN!"
    dialog.Text = "The application has performed an illegal action.  Thisaction has been logged and reported."
    dialog.Icon = TaskDialogStandardIcon.Error
    dialog.Cancelable = False
    dialog.DetailsExpanded = False
    dialog.DetailsCollapsedLabel = "Show Expanded Text"
    dialog.DetailsExpandedLabel = "Hide Expanded Text"
    dialog.DetailsExpandedText = "### Start of Expanded Text ###" & Environment.NewLine & "" + Environment.NewLine + "### End of Expanded Text ###"
    Dim minValue As Integer = 0
    Dim maxValue As Integer = 100
    Dim currentValue As Integer = 20
    dialog.ProgressBar = New TaskDialogProgressBar(minValue, maxValue, currentValue)
    dialog.Show()
End Sub

---

您应该显示使用此任务对话框的代码，让我们检查您的代码中是否存在任何问题。添加-无错误或任何其他图标显示正常，左上角显示失败的红十字。我想尝试其他Windows版本。我使用的是Windows 10。你在用什么窗口？另外，你知道如何在文本中插入hyperling吗？