Private Sub ComboStyle_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles ComboStyle.DrawItem
        If e.Index < 0 Then Exit Sub
        Dim pentmp As New Pen(Color.Black)
        pentmp.Alignment = Drawing2D.PenAlignment.Center
        Select Case e.Index
            Case 0
                pentmp.DashStyle = Drawing2D.DashStyle.Solid
            Case 1
                pentmp.DashStyle = Drawing2D.DashStyle.Dash
            Case 2
                pentmp.DashStyle = Drawing2D.DashStyle.DashDot
            Case 3
                pentmp.DashStyle = Drawing2D.DashStyle.DashDotDot
        End Select
 
                'Vermessen des Feldes und Bestimmung der Position für die Linie
        Dim x1 As Integer = Math.Round(e.Bounds.Width * 0.1, 0)
        Dim x2 As Integer = Math.Round(e.Bounds.Width - (e.Bounds.Width * 0.1), _
          0)
        Dim y As Integer = Math.Round(e.Bounds.Height / 2, 0)
        e.DrawBackground()
        e.Graphics.DrawRectangle(New Pen(Color.Black, 1), e.Bounds)
        e.Graphics.FillRectangle(New System.Drawing.SolidBrush(Color.White), _
          e.Bounds)
        e.Graphics.DrawLine(pentmp, x1, y, x2, y)
        e.DrawFocusRectangle()
    End Sub