当 Windows Vista 或 Windows 7 的进程中某程序未响应时，会弹出下图窗口：
其实 VB.NET 也可以制作这样的窗口。

首先新建一个WinForm工程，然后导入文件 Microsoft.WindowsAPICodePack.dll
选择 [项目(P) - 添加引用(F)...]


添加引用后，设置窗体如下图（控件的名称已给出）

双击 OpenDialog 按钮，进入按钮的 Click 代码，在最上面插一行代码：
Imports Microsoft.WindowsAPICodePack.Dialogs
在 Public Class 下插入一行代码：
Dim ApiTaskDialog As New TaskDialog '新建一个TaskDialog
在 Private Sub OpenDialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenDialog.Click 下插入以下代码：
Dim ButOK As New TaskDialogCommandLink '创建一个按钮
Dim ButCancel As New TaskDialogCommandLink
ApiTaskDialog.InstructionText = "我们需要您的意见" '窗体蓝色文本
ApiTaskDialog.Text = "希望你能把意见发给我们" '蓝色字下面的文本
ButOK.Text = "好的，我要立即发送" '按钮的文本(注：必须要有)
ButCancel.Text = "不，谢谢"
ApiTaskDialog.Controls.Add(ButOK) '向 Dialog 添加控件
ApiTaskDialog.Controls.Add(ButCancel)
ApiTaskDialog.Show() '启动 Dialog


运行效果：
可是我们点击按钮都没反应，是因为我们还没有给按钮附上事件。

测试：
当我们选择第一个按钮时：
当我们选择第二个按钮时：
但在测试期间，如果点击两次 " 打开 Task Dialog " 按钮时，它会出现以下错误：


让 Dialog 有状态栏
修改 ApiTaskDialog.FooterText 属性即可
在 Private Sub OpenDialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenDialog.Click 中（在 ApiTaskDialog.Show() 语句的前面）插入代码：
ApiTaskDialog.FooterText = "ApiTaskDialog"


所有代码：
Imports Microsoft.WindowsAPICodePack.Dialogs
Public Class Main
Dim ApiTaskDialog As New TaskDialog
Private Sub OpenDialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenDialog.Click
Dim ButOK As New TaskDialogCommandLink
Dim ButCancel As New TaskDialogCommandLink
ApiTaskDialog.InstructionText = "我们需要您的意见"
ApiTaskDialog.Text = "希望你能把意见发给我们"
ApiTaskDialog.Caption = "提交意见"
ApiTaskDialog.FooterText = "ApiTaskDialog"
ButOK.Text = "好的，我要立即发送"
ButCancel.Text = "不，谢谢"
AddHandler ButOK.Click, AddressOf ButOK_Click
AddHandler ButCancel.Click, AddressOf ButCancel_Click
ApiTaskDialog.Controls.Add(ButOK)
ApiTaskDialog.Controls.Add(ButCancel)
ApiTaskDialog.Show()
End Sub
Private Sub ButOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
SelText.Text = "您已经选择了: ' 好的，我要立即发送 '"
ApiTaskDialog.Controls.Clear()
ApiTaskDialog.Close()
End Sub
Private Sub ButCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
SelText.Text = "您已经选择了: ' 不，谢谢 '"
ApiTaskDialog.Controls.Clear()
ApiTaskDialog.Close()
End Sub
End Class
完毕

度娘吞了好多...

补发2L:
在弹出的窗口中，打开"浏览"选项卡，选择 Microsoft.WindowsAPICodePack.dll (在1L图片里，下载后将后缀名改为 .rar ) 文件


补发7L:
我们插入以下代码：
Private Sub ButOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
ApiTaskDialog.Close()
End Sub
Private Sub ButCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
ApiTaskDialog.Close()
End Sub
然后在 Private Sub OpenDialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenDialog.Click 里添加以下代码（必须在 ApiTaskDialog.Show() 语句的上面）：
AddHandler ButOK.Click, AddressOf ButOK_Click
AddHandler ButCancel.Click, AddressOf ButCancel_Click


补发8L:
如果关闭 Dialog 后，在 SelText 里显示点击的按钮的文本，那么把 ButOK_Click 和 ButCancel_Click 的代码改为：
Private Sub ButOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
SelText.Text = "您已经选择了: ' 好的，我要立即发送 '"
ApiTaskDialog.Close()
End Sub
Private Sub ButCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
SelText.Text = "您已经选择了: ' 不，谢谢 '"
ApiTaskDialog.Close()
End Sub


补发10L：
在 ApiTaskDialog.Close() 上添上 ApiTaskDialog.Controls.Clear() 即可解决重复增加的问题

补发11L：
测试时， Dialog 的标题栏总是程序名称
其实可以改的
在 Private Sub OpenDialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenDialog.Click 中（在 ApiTaskDialog.Show() 语句的前面）插入代码：
ApiTaskDialog.Caption = "提交意见"
运行后：


Levenim MT

就是CommandLink？

算是吧

算是一半