vb 截图问题

楼上太烦了，说两个办法
办法一：用“print screen”(打印屏幕)，在键盘的右侧，保存到WORD里后点图片，然后右键“图片格式”-“压缩图片”-"优化"-“确定”，就OK了，这样保存后图片可以减少一半的内存
方法二：用QQ截图，即打开QQ后“ctrl+altA”开始截图，然后按照上面的办法压缩图片。。。
早日成功啊。。。

'可以剪切。复制。粘贴图像。

Dim flag1 As Boolean
Private Sub Form_Load()
Shape1.Visible = False
Shape1.BorderStyle = 3
flag1 = False
End Sub

Private Sub Picture1_MouseDown(Button As Integer, _
Shift As Integer, _
X As Single, Y As Single)
'开始选择区域
Shape1.Left = X
Shape1.Top = Y
flag1 = True
'设置标志变量并将Shape1的左上角移动到鼠标所在点
End Sub

Private Sub Picture1_MouseMove(Button As Integer, _
Shift As Integer, _
X As Single, Y As Single)
'在选定区域过程中随着鼠标移动产生虚线框
If Button = 1 Then
If flag1 = True Then
'如果是处在正在选择