Private mousedown_xy As System.Drawing.Point
 
Private Sub lstKom_MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles lstKom.MouseDown
        ' das doubleclick event wird nach dem Mousedown nicht mehr gefeuert
        ' deshalb wird hier gecheckt, ob 2* Mousedown an der gleichen Koordinate
        ' hintereinander ausgelöst wurde. Wenn ja wird es als Doppelklick 
        ' interpretiert
        If e.Location = mousedown_xy Then
            lstkom_DoubleClick()
             exit sub
        Else
            mousedown_xy = Nothing
        End If
        mousedown_xy = e.Location
        If e.Button = Windows.Forms.MouseButtons.Left Then
            lstKom.DoDragDrop(lstKom.SelectedItem, DragDropEffects.Copy)
        End If
    End Sub
 
 
 Private Sub lstkom_DoubleClick()
        mousedown_xy = Nothing
        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