Imports System.Drawing

' ....

' ....

' evento Click de un botón:

' coordenadas

Dim pntUbicacion As New Point(80, 45)

' tamaño

Dim szMedidas As New Size(100, 50)

' zona para el dibujo

Dim recArea As New Rectangle(pntUbicacion, szMedidas)

' color de la figura

Dim oColor As Color = Color.ForestGreen

' pincel

Dim penPincel As New Pen(oColor, 4)

' superficie del formulario para dibujar

Dim gphSuperfDibujo As Graphics = Me.CreateGraphics()

' dibujar un rectángulo

gphSuperfDibujo.DrawRectangle(penPincel, recArea)

' liberar recursos

gphSuperfDibujo.Dispose()

Fuente 1.

' Superficie del formulario para dibujar

Dim gphSuperfDibujo As Graphics = Me.CreateGraphics()

' Dibujar un rectángulo

gphSuperfDibujo.DrawEllipse(New Pen(Color.ForestGreen, 4), _

    New Rectangle(New Point(25, 45), New Size(200, 40)))

' Liberar recursos

gphSuperfDibujo.Dispose()

Fuente 2.

' crear pincel y aplicarle estilo de línea

Dim penPincel As New Pen(Color.DarkCyan, 7)

penPincel.DashStyle = Drawing.Drawing2D.DashStyle.Dash

penPincel.StartCap = Drawing.Drawing2D.LineCap.DiamondAnchor

penPincel.EndCap = Drawing.Drawing2D.LineCap.RoundAnchor

' obtener superficie del formulario y dibujar una línea

Dim gphSuperfDibujo As Graphics = Me.CreateGraphics()

gphSuperfDibujo.DrawLine(penPincel, 25, 50, 200, 50)

gphSuperfDibujo.Dispose()

Fuente 3.

' array de objetos Point con las coordenadas del polígono

Dim pntPuntos(4) As Point

pntPuntos(0) = New Point(25, 70)

pntPuntos(1) = New Point(50, 40)

pntPuntos(2) = New Point(75, 70)

pntPuntos(3) = New Point(60, 90)

pntPuntos(4) = New Point(40, 90)

Dim gphSuperfDibujo As Graphics = Me.CreateGraphics()

gphSuperfDibujo.DrawPolygon(New Pen(Color.DarkMagenta, 3), _

    pntPuntos)

gphSuperfDibujo.Dispose()

Fuente 4.