Billedemanipulation..

Option Explicit
\'-------------------------- Flytte Picture1 --------------------------
Dim IX As Integer, IY As Integer, TX As Integer
Dim TY As Integer, FX As Integer, FY As Integer

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
\'Button = 1 (Venstre Mussetast)
\'Button = 2 (Højer Mussetast)
\'Button = 4 (Midt Mussetast)
If Button = 1 Then
  IX = X: IY = Y
  FX = Picture1.Left: FY = Picture1.Top
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
  Picture1.Move FX + (X - IX), FY + (Y - IY)
  FX = Picture1.Left: FY = Picture1.Top
End If
End Sub
\'-------------------------- Flytte Picture1 --------------------------

Du kan bruge BitBlt API\'en, med den kan du kopiere en del af et billede fra ét DC til et andet. Dvs, du skal have lavet noget kode, som tillader dig at flytter Picture3 med musen, og som kan fortælle dig hvor på Image1, Picture3 befinder sig (i pixels). Så skal du bruge BitBlt til at kopiere udsnittet fra Image1 til Picture4.

BitBlt deklarerer du således:
Declare Function BitBlt Lib \"gdi32.dll\" (ByVal hdcDest As Long, ByVal nXDest As Long, ByVal nYDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal dwRop As Long) As Long

Læs hvordan du bruger BitBlt her:
http://www.vbapi.com/ref/b/bitblt.html