Visual Basic

myExcel.Workbooks.Open(pathToFile)

Protected Overrides Sub OnLoad(ByVal e As EventArgs)

    PictureBox1.Image = Image.FromFile("MyImage.bmp")
    PictureBox1.AllowDrop = True
    PictureBox2.AllowDrop = True

End Sub

Private dragSource As PictureBox

Private Sub PictureBox_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) _
    Handles PictureBox1.MouseMove, PictureBox2.MouseMove

    'Initiate a drag if left mouse button is down
    If e.Button = MouseButtons.Left Then
        dragSource = CType(sender, PictureBox)
        DoDragDrop(CType(sender, PictureBox).Image, DragDropEffects.Move)
    End If

End Sub

Private Sub PictureBox_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs) _
    Handles PictureBox1.DragEnter, PictureBox2.DragEnter

    If (Not dragSource Is Nothing) AndAlso (Not sender Is dragSource) Then
        e.Effect = DragDropEffects.Move
    End If

End Sub

Private Sub PictureBox_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) _
    Handles PictureBox1.DragDrop, PictureBox2.DragDrop

    If (Not dragSource Is Nothing) AndAlso (Not sender Is dragSource) Then
        CType(sender, PictureBox).Image = dragSource.Image
        dragSource.Image = Nothing
        dragSource = Nothing
    End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Me.WindowState = FormWindowState.Maximized

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Me.WindowState = FormWindowState.Normal

End Sub