Private Function SwAddin_ConnectToSW(ByVal ThisSW As Object, ByVal Cookie As Long) As Boolean
...
bWasAdded = pSldWorks.AddFileSaveAsItem2(swCookie, "Test_Callback", "Save As file type", "xyz", 1)
bWasAdded = pSldWorks.AddFileOpenItem3(swCookie, "Test_Callback", "Open File type", "xyz", "", "")
...
End Function
Private Function SwAddin_DisconnectFromSW() As Boolean
...
bWasItemRemoved = pSldWorks.RemoveFileSaveAsItem2(swCookie, "Test_Callback", "Save As file type", "xyz", 1)
bWasItemRemoved = pSldWorks.RemoveFileOpenItem2(swCookie, "Test_Callback", "Open File type", "xyz")
...
End Function
Public Sub Test_CallBack(Filename As String)
pSldWorks.SendMsgToUser "Callback called with filename = " & Filename End Sub