Sub Postopen(Source As Notesuidocument)
Dim View1 As NotesView
Dim doc As NotesDocument
Dim sesNotes As New NotesSession
Dim db As NotesDatabase

Set db = sesNotes.CurrentDatabase
Set View1 = db.GetView("ViewFIO")

Set doc = View1.getFirstDocument
Dim jj As Integer
Dim stringg(1 To 3) As String
jj=1
While Not doc Is Nothing
    stringg(jj) = doc.Name(0)
    Source.Checkbox1(0) = stringg(jj)
    Set doc = View1.getNextDocument(doc)
    jj=jj+1
Wend
Source.Refresh
End Sub