Private MouseIsDown As Boolean = False
 
   Private Sub TB_Art_Hoff_MouseDown(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.MouseEventArgs) Handles TB_Art_Hoff.MouseDown
        MouseIsDown = True
    End Sub
 
    Private Sub TB_Art_Hoff_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles TB_Art_Hoff.MouseMove
        If MouseIsDown Then
            TB_Art_Hoff.DoDragDrop(TB_Mat_Sort_Nr.Text & " " & TB_Art_Hoff.Text _
              & Chr(166) & TB_Art_Lieferant.Text & Chr(166) & _
              TB_M_Bestelltext.Text, DragDropEffects.Copy)
        End If
        MouseIsDown = False
    End Sub
 
   Public Sub New()
        Me.InitializeComponent()
    End Sub
 
 
    'Friend WithEvents DropLocationComboBox As System.Windows.Forms.ComboBox
 
    Private Sub TB_PFAD_HAUPTART_DragEnter(sender As Object, e As _
      System.Windows.Forms.DragEventArgs) Handles TB_PFAD_HAUPTART.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub
 
    Private Sub TB_PFAD_HAUPTART_DragDrop(sender As Object, e As _
      System.Windows.Forms.DragEventArgs) Handles TB_PFAD_HAUPTART.DragDrop
        For Each Files As String In DirectCast(e.Data.GetData( _
        DataFormats.FileDrop), String())
            Dim fi As New System.IO.FileInfo(Files)
            Dim fp As New clsFullPath
            fp.PathWithFilename = fi.FullName
            TB_PFAD_HAUPTART.Text = fp.ToString
        Next
    End Sub
'################################################################
Public Class clsFullPath
    Public PathWithFilename As String
    Public Overrides Function ToString() As String
        Return PathWithFilename
    End Function
End Class

VG

Dirk