刚刚用VB亲自测试了一下，可以的。我想这应该是用最少的代码实现屏幕截图了吧？代码如下：

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 Form_Click()
   keybd_event vbKeySnapshot, 0&, 0&, 0&
   DoEvents
   Me.Picture = Clipboard.GetData(vbCFBitmap)
End Sub

常数 值 描述
vbCFBitmap 2 位图（.bmp文件）
vbCFMetafile 3 元文件（.wmf文件)
vbCFDIB 8 设备无关位图 (DIB)
vbCFPalette 9 调色板