How to get radtreeview drag and drop event to handle the to get source and destination full path node ?

'In Form_Load event
   AddHandler RadTreeView1.MouseDown, AddressOf RadTreeView1_MouseDown
   AddHandler RadTreeView1.DragEnter, AddressOf RadTreeView1_DragEnter
   AddHandler RadTreeView1.DragDrop, AddressOf RadTreeView1_DragDrop


Private sourceNode As RadTreeNode
   
 Private Sub RadTreeView1_MouseDown(sender As Object, e As MouseEventArgs)
        Dim clickedNode As RadTreeNode = RadTreeView1.GetNodeAt(e.X, e.Y)

        If clickedNode IsNot Nothing Then
            sourceNode = clickedNode
            RadTreeView1.DoDragDrop(sourceNode, DragDropEffects.Move)
        End If
    End Sub

    Private Sub RadTreeView1_DragEnter(sender As Object, e As DragEventArgs)
        If e.Data.GetDataPresent(GetType(RadTreeNode)) Then
            e.Effect = DragDropEffects.Move
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub

 Private Sub RadTreeView1_DragDrop(sender As Object, e As DragEventArgs)
        Dim targetNode As RadTreeNode = RadTreeView1.GetNodeAt(RadTreeView1.PointToClient(New Point(e.X, e.Y)))

        If targetNode IsNot Nothing AndAlso sourceNode IsNot Nothing Then
            ' Access the source and destination nodes
            Dim sourceFullPath As String = sourceNode.FullPath
            Dim destinationFullPath As String = targetNode.FullPath

            MessageBox.Show("Source Node: " & sourceFullPath & vbCrLf & "Destination Node: " & destinationFullPath)
        End If

        sourceNode = Nothing
    End Sub