Creare un Bottone dinamicamente con LS

Anche questa classe davvero carina...vi permette di realizzare in modalita' del tutto dinamica un bottone da inserire in un Rich-text Field...dandovi la possibilita' non solo di inserire il LABEL dello stesso, ma anche di specificare la @FORMULAS in esso contenuta.
Davvero interessante!


Ecco un semplice esempio di utilizzo della classe in allegato:

********************************************************************************
'** This class makes it easy to create a button that can be appended
                '** to a NotesRichTextField. Here's an example of use:
               
                '** Dim rtbutton As New RichTextButton
                '** Call rtbutton.SetLabel("Formula Button")
                '** Call rtbutton.SetButtonLanguage(RTB_FORMULA)
                '** Call rtbutton.SetCode( |@Prompt([ok]; "My Button"; "You clicked my button");| )
                '** Set rtitem = doc.GetFirstItem("Body")
                '** Call rtbutton.AppendButton(rtitem)
               
                '** version 1.2
                '** September 2, 2005
                '** Julian Robichaux -- http://www.nsftools.com
*****************************************