Dim WithEvents Pb As New PictureBox
 
 
Dim x_e_alt_kreis, y_e_alt_kreis As Integer
Dim run As Boolean                          'Wenn run = true ist, dann ist die 
' Maustaste gedrückt und der Inhalt wird verschoben
    Dim bKreis As Boolean  'Über welchem Element die Maus gedrückt wurde
 
    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Pb.MouseClick
        If run Then
            run = False : bKreis = False 
        End If
    End Sub
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Pb.MouseDown
        run = False
        If e.X > p_mObenLinks.X - r And e.X < p_mObenLinks.X + r Then        _
             'Wenn die Maus über dem Kreis gedrückt wird
            If e.Y > p_mObenLinks.Y - r And e.Y < p_mObenLinks.Y + r Then
                run = True : bKreis = True
            End If
        End If
                'Mauswerte speichern wenn ein klick stattfindet. Werden in der 
                ' MouseMove - Sub bearbeitet
        x_e_alt_kreis = e.X - p_mObenLinks.X
        y_e_alt_kreis = e.Y - p_mObenLinks.Y
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Pb.MouseMove
        If run = True Then
            If bKreis Then                                                      _
                          'Wenn über dem Kreis die Maus gedrückt wurde
                p_mObenLinks.X = e.X - x_e_alt_kreis                            _
                                   'Neue Werte werden, abhäning von der Maus, 
                ' gesetzt
                p_mObenLinks.Y = e.Y - y_e_alt_kreis
                x_e_alt_kreis = e.X - p_mObenLinks.X
                y_e_alt_kreis = e.Y - p_mObenLinks.Y
            End If
            If e.X > Me.ClientSize.Width Or e.Y > Me.ClientSize.Height Then
                run = False : bKreis = False
             End If
            If e.X < 0 Or e.Y < 0 Then
                run = False : bKreis = False 
            End If
            Pb.Invalidate()
        End If
    End Sub