Private Sub lstKom_MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles lstKom.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
               lstKom.DoDragDrop(lstKom.SelectedItem, DragDropEffects.Copy)
        End If
End Sub

 Private Sub lstKiste_DragDrop(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.DragEventArgs) Handles lstKiste.DragDrop
              Dim Kommission As String = e.Data.GetData( _
              DataFormats.Text).ToString.Substring(0, 7).Trim
.........usw

Private Sub lstKom_MouseDoubleClick(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles lstKom.MouseDoubleClick, _
  lstKom.MouseDown
        If txtKom.Text = lstKom.SelectedItem Then
            txtKom.Text = Nothing
        Else
            If txtProj.Text.Trim.Length = 8 Then
                txtKom.Text = lstKom.SelectedItem.ToString.Substring(0, 6)
            End If
        End If
End Sub