| 1 Module ve 1 Forma ihtiyaçımız var.
Moduleye Kodlar;
Option Explicit
Public Function ScreenShot(ByVal Destination$) As Boolean
On Error Resume Next
DoEvents
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), Destination$
ScreenShot
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. | 
