Нахожу примеры типа
SendKeys.Send("^{PRTSC}") '<Ctrl>+<PrintScreen> экран
Dim clipData = Clipboard.GetDataObject()
If clipData.GetDataPresent(DataFormats.Bitmap) Then
Dim clipBMP As Bitmap = CType(clipData.GetData(DataFormats.Bitmap), Bitmap)
clipBMP.Save(Path.Combine(Application.StartupPath, "tst1.bmp"))
End If

_______________
Но bitmap нельзя использовать в службах,
так как у мискософт написано
Классы в System.Drawing.Imaging пространства имен не поддерживаются для использования в службе Windows или ASP.NET. Попытка использования этих классов из одного из этих типов приложений может привести к непредвиденным проблемам, например неодинаково службы исключения производительности и времени выполнения.

Что можно еще сделать?

skyANA, скриншот всего экрана, не активного окна.
Нужно, чтобы служба записывала действия пользователя, 1 раз в минуту делала скриншот всего экрана и сохраняла в папку.
В течении всего рабочего дня.