EJERCICIO CIRCULO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim grafico As Graphics
Dim lapiz As Pen
grafico = CreateGraphics()
lapiz = New Pen(Color.Blue, 2)
grafico.DrawEllipse(lapiz, 128, 10, 100, 100)
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim grafico As Graphics
Dim lapiz As Pen
grafico = CreateGraphics()
lapiz = New Pen(Color.Blue, 2)
grafico.DrawEllipse(lapiz, 128, 10, 100, 100)
End Sub
End Class
No hay comentarios:
Publicar un comentario