I would like to add a blank line at the bottom of a list of check boxes. I have a DialogBox that is currently set to the size it needs to be based on the list. (I really don’t want to redo the whole box.) I want to add the blank line because people who use Large Fonts do not see the bottom choice or the bottom vertical scroll arrow.
So far, I am able to add another check box, but I would prefer a plain, old, ordinary blank line. I tried adding ‘Print Chr(10) newline’ but it didn’t add a blank line for me.
Here is the basis of the code that adds my list. I can post more code if someone feels it would be helpful:
Sub setFieldList
Dim session As New notesSession
Dim mydoc As NotesDocument
Dim ListBoxchoices(100,1,1)
Dim i As Integer
Dim ChoicesItems As NotesItem
Dim fldname As String
Set db = session.CurrentDatabase
Set mydoc = New NotesDocument(db)
mydoc.ListBoxChoices = “All”
Set ChoicesItem = mydoc.GetFirstItem(“ListBoxChoices”)
i%=0
ListBoxChoices(i%,0,0,0) = “All”
ListBoxChoices(i%,1,0,0) = 0
ListBoxChoices(i%,1,1,0) = “”
ListBoxChoices(i%,1,1,1) = “”
i%= i% +1
ListBoxChoices(i%,0,0,0) = “Item1”
ListBoxChoices(i%,1,0,0) = 12.50
ListBoxChoices(i%,1,1,0) = “Text”
ListBoxChoices(i%,1,1,1) = “Field1”
i%= i% +1
ListBoxChoices(i%,0,0,0) = “Item2”
ListBoxChoices(i%,1,0,0) = 12.50
ListBoxChoices(i%,1,1,0) = “Text”
ListBoxChoices(i%,1,1,1) = “Field2”
…
End Sub