Start a new VB project. Put a textbox on your form and set its properties as under.
[tt]MultiLine = True
OLEDropMode = 1[/tt] (Manual)
Put the following code in your form.
___
[tt]
Private Sub Form_Resize()
Text1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Data.GetFormat(vbCFText) Then Text1 = Data.GetData(vbCFText)
End Sub[/tt]
___
Now run the program and drag-drop a message from Outlook to your textbox, the contents of the message will be captured directly in the textbox.
Checked with Outlook Express and its working fine.