Creo que te servirá algo así:
1.- en www.ambsoftware.com encontraras un código para capturar la imagen de la pantalla y colocarlo en un picture box:
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Long) As Integer
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Const SRCCOPY = &HCC0020
Public Const SRCAND = &H8800C6
Public Const SRCINVERT = &H660046
'Añade un botón a tu formulario
'Añade un PictureBox a tu formulario
Private Sub Command1_Click()
Dim DeskhWnd As Long, DeskDC As Long
DeskhWnd& = GetDesktopWindow()
DeskDC& = GetDC(DeskhWnd&)
BitBlt Picture1.hDC, 0&, 0&, Screen.Width, Screen.Height, DeskDC&, 0&, 0&, SRCCOPY
End Sub
2.- busca el ejemplo de la función de PainPicture y encontrarás que podrás invertir la imagen dentro del picture box con esa función. (Ahora si el picture box ocupa todo el formulario, y este formulario está sin bordes y maximizado el efecto será que invertistes el monitor)... J2ML