Visual Basic

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

Do you want to know more?
WDevs.com - Member's Software Directories, Blogs, FTP, Mail and Forums

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
    If e.KeyCode = Keys.Enter Then
        MyControl.Focus()
    End If
End Sub