Código de Visual Basic - Diagrama de VEEN

'Create a new form and set its size
Public Class VennDiagramForm
Private Sub VennDiagramForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Size = New Size(600, 400)
End Sub

'Draw the Venn diagram on the form
Private Sub VennDiagramForm_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
Dim personFont As New Font("Arial", 10)
Dim circlePen As New Pen(Color.Black, 2)
Dim personBrush As New SolidBrush(Color.Blue)

'Draw the circles
e.Graphics.DrawEllipse(circlePen, 50, 50, 200, 200) 'Promotion and prevention
e.Graphics.DrawEllipse(circlePen, 175, 50, 200, 200) 'Diagnostic services
e.Graphics.DrawEllipse(circlePen, 112, 125, 200, 200) 'Subsidized healthcare

'Draw the labels
e.Graphics.DrawString("Promotion and prevention", personFont, personBrush, 100, 5)
e.Graphics.DrawString("Diagnostic services", personFont, personBrush, 225, 5)
e.Graphics.DrawString("Subsidized healthcare", personFont, personBrush, 162, 80)

'Draw the circles' overlaps
e.Graphics.DrawString("5", personFont, personBrush, 155, 80) 'Promotion and prevention + Diagnostic services
e.Graphics.DrawString("3", personFont, personBrush, 130, 95) 'Promotion and prevention + Subsidized healthcare
e.Graphics.DrawString("1", personFont, personBrush, 175, 145) 'Diagnostic services + Subsidized healthcare

'Draw the person counts
e.Graphics.DrawString("13", personFont, personBrush, 125, 70) 'Promotion and prevention
e.Graphics.DrawString("13", personFont, personBrush, 250, 70) 'Diagnostic services
e.Graphics.DrawString("9", personFont, personBrush, 187, 145) 'Subsidized healthcare
e.Graphics.DrawString("5", personFont, personBrush, 90, 125) 'Promotion and prevention + Diagnostic services
e.Graphics.DrawString("3", personFont