请帮我给这个程序加上注示?

Question

Sub ScrnCap(Lt, Top, Rt, Bot) '获取图面图像的函数
Dim rWIdth, rHeight, SourceDC, DestDC, BHandle, DHandle, wndscreen
rWIdth = Rt - Lt '得到宽度
rHeight = Bot - Top '得到高度SourceDC = CreateDC("DISPLAY", 0, 0, 0) '创建与屏幕兼容的DC
DestDC = CreateCompatibleDC(SourceDC) '创建与SourceDC兼容的DC
BHandle = CreateCompatibleBitmap(SourceDC, rWIdth, rHeight) '创建（设备有关）位图
SelectObject DestDC, BHandle '把位图选入DC
BitBlt DestDC, 0, 0, rWIdth, rHeight, SourceDC, Lt, Top, &HCC0020 '位图复制
wndscreen = Screen.ActiveForm.hwnd '得到当前窗体的hWnd
OpenClipboard wndscreen '打开剪贴板
EmptyClipboard '清空剪贴板
SetClipboardData 2, BHandle '把位图放入剪贴板
CloseClipboard '关闭剪贴板
DeleteDC DestDC '释放DC
ReleaseDC DHandle, SourceDC '释放DCEnd Sub