Gotta test out how to post code
VB Code:
  1. Private Sub rtbMessage_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles rtbMessage.DragEnter
  2.         If e.Data.GetDataPresent("System.Windows.Forms.ListViewItem", False) Then
  3.             e.Effect = DragDropEffects.Copy
  4.         Else
  5.             e.Effect = DragDropEffects.None
  6.         End If
  7.     End Sub