'Here is the Drag and Drop Code from above - VB.NET 2005. ' 'Problem 1: 'When I drag and drop a file name from ListBox1 to PictureBox1, it works. 'When I drag and drop a filename from ListBox1 to Outlook Email for use 'as an attachment, I get the filename text inserted. ' 'Problem 2: 'When I try and drag and drop from the PictureBox1 to Outlook or 'the Paint program, I get nothing. ' 'Any Ideas on how to fix this??????? '-------------------------------------------------------------------- Public Class Form1 'The Problem lies in the SelectedItem property. Actually if you do the mouse 'down the item is not already selected. You have to use the SelectedIndex 'and get then the the according item. Please find the code below which is 'working. Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown If e.Button = MouseButtons.Left Then If ListBox1.SelectedIndex > -1 Then ListBox1.DoDragDrop(ListBox1.Items.Item(ListBox1.SelectedIndex).ToString, DragDropEffects.Copy) End If End If End Sub Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown Dim o As New DataObject o.SetData(DataFormats.Bitmap, PictureBox1.Image) PictureBox1.DoDragDrop(o.GetData(DataFormats.Bitmap, True), DragDropEffects.Copy) End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Debug.WriteLine("SelectedIndexChanged - " & ListBox1.SelectedItem.ToString) End Sub Private Sub PictureBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragEnter If e.Data.GetDataPresent(GetType(System.String)) = True Then e.Effect = DragDropEffects.Copy Else e.Effect = DragDropEffects.Link End If End Sub Private Sub PictureBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop If Not PictureBox1.Image Is Nothing Then PictureBox1.Image.Dispose() PictureBox1.Image = Nothing End If PictureBox1.Image = Image.FromFile(CStr(e.Data.GetData(GetType(System.String)))) End Sub Private Sub btnExit_Click(ByVal