Sub Click(Source As Button)
     
' Variable declaration section below.         
     Dim session As New NotesSession
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As notesuidocument   
     Dim Currentdoc As NotesDocument     
     Set uidoc =workspace.currentdocument
     uidoc.EditMode = True
     Set Currentdoc= uidoc.Document    
     
' Prompt the user to create another form for this customer.     
     Call uidoc.save
     retcode=Msgbox ("Sign out another item for this person?" , 4 + 32 + 256 + 0, "Multiple Items?")
     If (retcode=6) Then
          Dim newworkspace As New NotesUIWorkspace
          Dim newuidoc As NotesUIDocument
          Set newuidoc = workspace.ComposeDocument( "", "", "Request2" )
          Call uidoc.close      
     Else
          Call uidoc.close    
     End If 
     
End Sub