Vb.net 如何生成Outlook功能区？

我正在尝试使用VB VSTO程序创建Outlook功能区

我没有收到任何错误。我没有收到丝带

我的代码：

Public Class ThisAddIn

    Private Sub ThisAddIn_Startup(sender As Object, e As System.EventArgs)
        'Handles Me.Startup

    End Sub

Public Class ReadPublishing

Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As 
            RibbonUIEventArgs) Handles MyBase.Load

End Sub

Private Sub btnPDF_Click(sender As Object, e As RibbonControlEventArgs) 
            Handles btnPDF.Click
    Dim desktopFolder, fileName As String
    desktopFolder = Environment.GetFolderPath
                    (Environment.SpecialFolder.Desktop)
    fileName = "You press the black one"
    ' --- insert action  
End Sub

End Class

    Private Sub ThisAddIn_Shutdown(sender As Object, e As System.EventArgs)
        'Handles Me.Shutdown

    End Sub

End Class

---

“不起作用”是什么意思？功能区按钮不显示？您单击一个按钮，但您的事件处理程序没有被调用？代码运行但没有达到预期效果？改进了格式以提高阅读效果。欢迎使用堆栈溢出！请浏览、和部分，了解此网站的工作方式，并帮助您改进当前和未来的问题，这可以帮助您获得更好的答案。所谓“不工作”，我的意思是新功能区不会出现，我也不会收到任何错误。