Public Sub TreeView1_DragDrop(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles Treeview1.DragDrop, _
      Treeview2.DragDrop
 
        Dim ZielTreeview As TreeView = CType(sender, TreeView)
        Dim ZielNode As TreeNode = ZielTreeview.SelectedNode
        Dim KnotenName as string
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim MyFiles() As String
            MyFiles = CType(e.Data.GetData(DataFormats.FileDrop), String())
 
            For i = 0 To MyFiles.Length - 1
             	KnotenName = Dateiname_ermitteln(MyFiles(i))  '-- gibt den 
             ' Dateiname ohne Pfad zurück
 	        Dim newNode As New TreeNode(KnotenName)
 
		If ZielNode Is Nothing Then
			'-- neuer Rootknoten
			ZielTreeview.Nodes.Add(newNode)
		Else
			'-- Unterknoten
			ZielKnoten.Nodes.Add(newNode)
		End If
       		ZielTreeview.SelectedNode = newNode
 
       	    Next
....

----------
VG
U.B.