Private Sub cboLineStyle_DrawItem(sender As Object, _
        e As System.Windows.Forms.DrawItemEventArgs) Handles _
        cboPenStyle.DrawItem
 
        If e.Index = -1 Then Exit Sub
 
        e.DrawBackground()
 
        Using pn As New Pen(GetForecolor(e.State), 4)
            Dim ypos% = cboPenStyle.ItemHeight \ 2
            pn.DashStyle = CType(e.Index, DashStyle)
            With e.Bounds
                e.Graphics.DrawLine _
                    (pn, .X + 4, .Y + ypos, .Width - 8, .Y + ypos)
            End With
        End Using
    End Sub
 
 
    Private Sub cboPenAlignment_DrawItem(sender As Object, _
            e As System.Windows.Forms.DrawItemEventArgs) _
          Handles cboPenAlignment.DrawItem
 
        If e.Index = -1 Then Exit Sub
 
        e.DrawBackground()
 
        Using br As New SolidBrush(GetForecolor(e.State))
            With e.Bounds
                'If e.Index = 1 Then Stop
 
                e.Graphics.DrawString _
                    (cboPenAlignment.Items(e.Index).ToString, _
                     e.Font, br, e.Bounds.Location)
            End With
        End Using
    End Sub
 
 
    Private Sub btnOK_Click(sender As Object, _
        e As System.EventArgs) Handles btnOK.Click
 
        Dim col As Color = Color.Black
 
        If cboPenColor.SelectedIndex >= 0 Then
            col = Color.FromName(cboPenColor.SelectedItem.ToString)
        End If
 
        _pen = New Pen(col, _
                         CInt(cboPenWidth.SelectedItem.ToString))
 
        _pen.DashStyle = CType(cboPenStyle.SelectedIndex, DashStyle)
        _pen.Alignment = CType(cboPenAlignment.SelectedIndex, PenAlignment)
    End Sub
 
#End Region
 
    Private Function GetForecolor(ByVal state As DrawItemState) As Color
 
        If DrawItemState.Selected = (state And DrawItemState.Selected) Then
            Return Color.White
        Else
            Return Color.Black
        End If
    End Function
End Class