Dim pn As Pen
 
    Private Sub btnPenDialog_Click(sender As Object, _
        e As System.EventArgs) Handles btnPenDialog.Click
 
 
        Using POD As New PenOptionsDialog
            With POD
                .Owner = Me
                .Text = "Demo PenOptionsDialog"
 
                .Options_Pen = pn
 
                .Options_Color = _
                    {Color.Red, Color.Blue, Color.Green, _
                     Color.Yellow, Color.Magenta}
 
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
 
                    pn = .Options_Pen
                    Using gr As Graphics = Me.CreateGraphics
                        gr.Clear(Me.BackColor)
                        gr.DrawLine(pn, 10, 220, Me.Width - 10, 220)
                    End Using
                End If
            End With
        End Using
    End Sub