Option Explicit
 
Private Declare Sub keybd_event Lib "User32" (ByVal bVk As Byte, ByVal bScan As _
  Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function BitBlt Lib "gdi32.dll" ( _
     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 Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, _
  lpPoint As POINTAPI) As Long
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Private Sub Command1_Click()
    Dim pa As POINTAPI
    Call ClientToScreen(Me.hwnd, pa)
    Me.Hide
    DoEvents
    keybd_event &H2C, 1, 0, 0
    DoEvents
    Picture2.Picture = Clipboard.GetData
    BitBlt Picture1.hDC, 0, 0, Me.ScaleWidth, Me.ScaleHeight, Picture2.hDC, _
      pa.x, pa.y, vbSrcCopy
    Me.Show
End Sub