Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As Long, _
  ByVal I As Long, ByVal J As Long) As Long
Private Declare Function SetPixel Lib "gdi32.dll" (ByVal hdc As Long, _
  ByVal I As Long, ByVal J As Long, ByVal crColo As Long) As Long
 
Private Sub Command1_Click()
  Dim I, J, w, r As Long
   Picture1.ScaleMode = vbPixels
        For I = 0 To 1000
      For J = 0 To 1000
        w = GetPixel(Picture1.hdc, I, J)
        r = GetPixel(Picture2.hdc, I, J)
        If r > 1 Then w = RGB(255, 255, 255)
        SetPixel Picture1.hdc, I, J, w
        Next J
    Next I
 End Sub
 
Private Sub HScroll1_Change()
  Image1.Left = HScroll1.Value
End Sub
 
Private Sub HScroll1_Scroll()
  Image1.Left = -HScroll1.Value
End Sub
 
Private Sub VScroll1_Change()
  Image1.Top = -VScroll1.Value
End Sub
 
Private Sub VScroll1_Scroll()
  Image1.Top = -VScroll1.Value
 
End Sub
 
Private Sub HScroll2_Change()
  Image2.Left = -HScroll2.Value
End Sub
 
Private Sub HScroll2_Scroll()
  Image2.Left = -HScroll2.Value
End Sub
 
Private Sub VScroll2_Change()
  Image2.Top = -VScroll2.Value
End Sub
 
Private Sub VScroll2_Scroll()
  Image2.Top = -VScroll2.Value
End Sub