Testing

Gotta test out how to post code

VB Code:

Private Sub rtbMessage_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles rtbMessage.DragEnter
        If e.Data.GetDataPresent("System.Windows.Forms.ListViewItem", False) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub