21 lines
430 B
VB.net
21 lines
430 B
VB.net
Public Class ThisAddIn
|
|
|
|
Private Sub ThisAddIn_Startup() Handles Me.Startup
|
|
|
|
End Sub
|
|
|
|
Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
|
|
|
|
End Sub
|
|
|
|
Protected Overrides Function CreateRibbonExtensibilityObject() As Microsoft.Office.Core.IRibbonExtensibility
|
|
Return New Ribbon1()
|
|
End Function
|
|
|
|
Public Sub HelloWorld()
|
|
MsgBox("Hello World", vbOKOnly, "Testing")
|
|
|
|
End Sub
|
|
|
|
End Class
|