Sub Initialize
Dim session As New NotesSession<br/>
Dim db As NotesDatabase<br/>
Set db = session.CurrentDatabase<br/>
Dim doc As NotesDocument<br/>
Dim databaseDesign As databasedesign 'DatabaseDesign-Class from the sandbox!<br/>
<br/>
Set databasedesign = createDatabaseDesign(db)<br/>
Set doc = databasedesign.getFormByName("Test") '<- here go your form<br/>
Dim rti As NotesRichTextItem<br/>
Set rti = doc.GetFirstItem("$Body")<br/>
Dim rtnav As NotesRichTextNavigator<br/>
Set rtnav = rti.CreateNavigator<br/>
If Not rtnav.FindFirstElement(RTELEM_TYPE_TABLE) Then<br/>
Messagebox "Body item does not contain a table,",, _<br/>
"Error"<br/>
Exit Sub<br/>
End If<br/>
Dim rtt As NotesRichTextTable<br/>
Set rtt = rtnav.GetElement<br/>
Dim labels() As String<br/>
Redim labels(1 To rtt.RowCount)<br/>
For i = 1 To rtt.RowCount<br/>
labels(i) = "Tab " & i<br/>
Next<br/>
rtt.RowLabels = labels<br/>
Call doc.Save(True, True)<br/>
End Sub
I think it is a answer to your Question, but it doesn't target :-(
Greetings JJR