Option Explicit
 
Private Declare Function GetDC Lib "user32" _
  (ByVal hWnd As Long) As Long
 
Private 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
 
Private Declare Function ReleaseDC Lib "user32" _
  (ByVal hWnd As Long, ByVal hdc As Long) As Long
 
Private Sub Command1_Click()
  Command1.Visible = False
 
  <font color=green>' in die PictureBox</font>
  BitBlt Picture1.hdc, 0, 0, _
    Me.ScaleWidth / Screen.TwipsPerPixelX, _
    Me.ScaleHeight / Screen.TwipsPerPixelY, Me.hdc, 0, 0, _
    vbSrcCopy
End Sub