you havent done the GetPublishInfo bit
code:
Public Function GetPublishInfo(ByRef sPluginName As String, ByRef nCommandCount As Long, ByRef nTagCount As Long) As Boolean
sPluginName = "Screenshot Sender 3"
nCommandCount = 23
nTagCount = 0
GetPublishInfo = True
End Function
and GetPublishCommandInfo
code:
Public Function GetPublishCommandInfo(ByVal nCommandIdx As Long, ByRef sName As String, ByRef sValue As String, ByRef sHelp As String)
If (nCommandIdx = 1) Then
sName = "Send ..."
sValue = "xsssend"
etc