Sub Initialize
 Dim db As New NotesDatabase("Cathy/Otus", _
 "Test\TestMarkForDelete.nsf")
 If db.IsOpen Then
   If db.IsInService Then
     db.IsInService = False
   Else
     db.IsInService = True
   End If
   Messagebox db.IsInService,, "In service is now ..."
 Else
   Messagebox "Could not open",, "TestMarkForDelete.nsf"
 End If
End Sub

See Also

IsInService property

Glossary