Private Sub compo_box_MouseDown(sender As Object,
        e As MouseEventArgs) Handles compo_box.MouseDown
 
        If e.Button = MouseButtons.Left Then
            If Cursor = Cursors.No Then Exit Sub
 
            If Cursor = Cursors.Cross Then
                Dim posy As Integer = (e.Y \ rasterheight) * rasterheight
 
                For i As Integer = 0 To cmps_inst.Count - 1
                    If cmps_inst(i)._col = markercolor Then
                        'Installation der gewählten Komponente
                        cmps_inst(i)._location = New Point(10, posy + 10)
                        cmps_inst(i)._col = Color.Red
                        Cursor = Cursors.Default
                        PaintCmpList(cmps_inst, compo_box.CreateGraphics)
                    End If
                Next i
                Reset_cmps_color()
            End If
        ElseIf Cursor = Cursors.default Then
            'Löschen einer installierten Komponente
            Dim mp As Point = New Point(e.X, e.Y)
            For i As Integer = cmps_inst.Count - 1 To 0 Step -1
                Dim cr As New Rectangle(cmps_inst(i)._location, cmps_inst( _
                  i)._bmp.Size)
                If cr.Contains(mp) Then
                    cmps_inst.RemoveAt(i)
 
                    PaintCmpList(cmps_inst, compo_box.CreateGraphics)
                End If
            Next i
        End If
 
    End Sub
 
 
    Private Sub compo_box_MouseLeave(sender As Object,
        e As EventArgs) Handles compo_box.MouseLeave
 
        Cursor = Cursors.Default
        For i As Integer = cmps_inst.Count - 1 To 0 Step -1
            If cmps_inst(i)._col = markercolor Then cmps_inst.RemoveAt(i)
        Next i
        Reset_cmps_color()
    End Sub
 
 
    Private Sub Reset_cmps_color()
        For i As Integer = cmps.Count - 1 To 0 Step -1
            If cmps(i)._col = markercolor Then
                cmps(i)._col = Color.Red
                PaintCmpList(cmps, compo_list.CreateGraphics)
            End If
        Next i
    End Sub
 
End Class