Dim workspace As New NotesUIWorkspace Call workspace.SetCurrentLocation("Internet")
Dim workspace As New NotesUIWorkspace Call workspace.SetCurrentLocation("")