Código de Visual Basic - Diagrama de VEEN

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'Draw the circles'

        Dim graphicsObj As Graphics = PictureBox1.CreateGraphics()

        Dim brushObj As New SolidBrush(Color.Blue)

        Dim penObj As New Pen(Color.Black)

        graphicsObj.DrawCircle(penObj, brushObj, 50, 50, 40)

        brushObj.Color = Color.Red

        graphicsObj.DrawCircle(penObj, brushObj, 100, 50, 40)

        brushObj.Color = Color.Green

        graphicsObj.DrawCircle(penObj, brushObj, 75, 90, 40)

        'Label the circles

        graphicsObj.DrawString("Acceso de promocion y prevencion", New Font("Arial", 10), New SolidBrush(Color.Black), 10, 10)

        graphicsObj.DrawString("Acceso al sistema de salud subsidiado", New Font("Arial", 10), New SolidBrush(Color.Black), 80, 20)

        graphicsObj.DrawString("Cobertura de servicios de diagnostico", New Font("Arial", 10), New SolidBrush(Color.Black), 40, 80)

        'Initialize the counts

        Dim group1Count As Integer = 0

        Dim group2Count As Integer = 0

        Dim group3Count As Integer = 0

        Dim group4Count As Integer = 0

        Dim group5Count As Integer = 0

        Dim group6Count As Integer = 0

        Dim group7Count As Integer