ΛΥΣΗ,
Public 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
Form1
Private Sub Command1_Click()
Form2.Picture1.Cls
Form2.Picture1.Height = Me.ScaleHeight + 60
Form2.Picture1..Width = Me.ScaleWidth + 60
BitBlt Form2.Picture1..hDC, 0, 0, _
Me.ScaleWidth, Me.ScaleHeight, Me.hDC, 0, 0, vbSrcCopy
SavePicture Form2.Picture1.Image, "c:\Active Window.BMP"
End Sub
Form2
Έισαγωγή ενος Picture1