Option Explicit
 
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 Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
 
    'Picture1 ist das Bild in dem der Screenshot gespeichert wird.
 
    BitBlt Picture1.hDC, X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelX, _
      Picture2.Width / Screen.TwipsPerPixelX, Picture2.Height / _
      Screen.TwipsPerPixelY, Picture2.hDC, -1, -1, vbSrcCopy
 
End Sub