'把command1按钮画在Picture1里,运行,按动按钮后你就可以在d:\aaa.bmp看到效果了
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Sub Command1_Click()
Picture1.Cls
Picture1.AutoRedraw = True: Picture1.ScaleMode = 1: Me.ScaleMode = 1 '约束环境,确保操作一致
StretchBlt Picture1.hdc, 0, 0, Picture1.Width / 15, Picture1.Height / 15, Me.hdc, Picture1.Left / 15, Picture1.Top / 15, Picture1.Width / 15, Picture1.Height / 15, vbSrcCopy
SavePicture Picture1.Image, "d:\aaa.bmp"
End Sub