Public Class Form1
    Private mousepressed As Boolean = False
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.PictureBox1.BorderStyle = BorderStyle.Fixed3D
        Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        Me.PictureBox1.Image = Image.FromFile(Dein Bild)
    End Sub
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        mousepressed = True
    End Sub
 
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If mousepressed = True Then
            Dim m As Point = e.Location
            Dim p As Point = Me.PictureBox1.Location
            Me.PictureBox1.Size = New Size(m.X - p.X, m.Y - p.Y)
            My.Application.DoEvents()
        End If
    End Sub
 
    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        mousepressed = False
 
    End Sub
End Class