Public Sub GetScreen()
keybd_event VK_SNAPSHOT, 1, 0, 0
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), "C:\curdesk.bmp"
DoEvents
End Sub

//The DoomBringer
System dump?... a dump of systems?