visual basic te ekran görüntüsü alma

Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), "c:\ekran.bmp"

Rem PicFormat321.SaveBmpToJpeg "c:\foto.bmp", "c:\foto.jpeg", 0.65 'kalite
DoEvents
End Sub

Private Sub Form_Load()
Shell ("regsvr32 PicFormat32.dll /s")
End Sub