Sub Click(Source As Button) Dim session As New NotesSession Dim user As String user = session.CommonUserName End Sub
Sub Initialize Dim session As New NotesSession Dim user As String user = session.CommonUserName End Sub