Sub CatturaImg
Dim awt As AWTRobot
awt.ScreenCurrentRectangleSetAsArbitrary(Main.MainForm.WindowLeft,Main.MainForm.WindowTop,Main.MainForm.WindowWidth,Main.MainForm.WindowHeight)
Dim cc As CompressedStreams
SendFrame(cc.CompressBytes(awt.ScreenCaptureAsByteArray,"zlib").As(Object))
End Sub