高分 VB 截图的问题

本人新学VB 想要编一个程序，框架已经组织好，缺少一个截图并且保存的模块，截图要截下的是正在运行的（也就是我编的这个）程序，保存在c:\Memory 中，要BMP格式保存，请问应该怎么写代码？

越短越好，功能为主！
好的再加50分！！
截的是是正在运行的那个程序，不是整个屏幕
不要运行外部程序好不好？
看清楚问题啊，我不想用鼠标，是后台截图……
tianqing20wen: 截自身。另外，不要MSGBOX

??正在运行！！？你自身？还是其他程序 ？正在运行程序可是很多的不可能只有一个。。
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Form_Load()
Me.Hide
Me.AutoRedraw = True
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(0), 0, 0, vbSrcCopy
sFile$ = "c:\Memory\" & Format(Now, "yyyymmddhhmmss") & ".BMP"
SavePicture Me.Image, sFile
MsgBox "当前屏幕图像已经保存到" & sFile, 64
End
End Sub

path = "c:\memory\xxx.bmp

set WshShell = CreateObject("WScript.Shell")

WshShell.SendKeys "%{Print screen}"

WshShell.run("mspaint")

Wscript .sleep 300