WPF

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="MainWindow" Height="350" Width="525">
    <Grid>
        <Image Name="Image" Source="TwitterBirdsAttack.jpg" MouseMove="Image_MouseMove" MouseUp="Rectangle_MouseLeftButtonUp" />
        <Rectangle  Name="Rect"  Width="100" Height="100" Fill="Transparent"  Stroke="Red" StrokeThickness="5" MouseLeftButtonDown="Rectangle_MouseLeftButtonDown" MouseLeftButtonUp="Rectangle_MouseLeftButtonUp">
            <Rectangle.RenderTransform>
                <TranslateTransform x:Name="trs" X="0" Y="0"/>
            </Rectangle.RenderTransform>
        </Rectangle>
    </Grid>
</Window>

Class MainWindow 

    Private moveRect As Boolean
    Private trans As TranslateTransform = Nothing
    Private originalMousePosition As Point

    Private LastPos As New Point


    Private Sub Rectangle_MouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs)
        originalMousePosition = e.GetPosition(Image)
        moveRect = True
        Rect.IsHitTestVisible = False

    End Sub

    Private Sub Image_MouseMove(sender As Object, e As MouseEventArgs)
        If moveRect Then
            If LastPos <> Nothing Then
                trs.Y = -(originalMousePosition.Y - e.GetPosition(Image).Y - LastPos.Y)
                trs.X = -(originalMousePosition.X - e.GetPosition(Image).X - LastPos.X)
            Else
                trs.Y = -(originalMousePosition.Y - e.GetPosition(Image).Y)
                trs.X = -(originalMousePosition.X - e.GetPosition(Image).X)
            End If
        End If
    End Sub
    Private Sub Rectangle_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs)
        moveRect = False
        Rect.IsHitTestVisible = True
        LastPos.X = trs.X
        LastPos.Y = trs.Y
    End Sub
End Class