Dibujar líneas mediante el GDI en vb.net

Proyecto Open source realizado en vb.net , que dibuja líneas en un PictureBox

Este código fuente realizado por Michael Burke, demuestra como dibujar líneas en un control Picture mediante el GDI utilizando la clase Graphics y la clase Pen de .NET
El ejemplo permite cambiar el color de las líneas y el sentido de las mismas , También se realiza una simple animación de las líneas dibujadas con un timer.

Los métodos gráficos usados en este ejemplo :

• CreateGraphics
  
• FillRectangle
  
• DrawLine

Ejemplo muy básico que dibuja en el formulario , líneas de color rojo al hacer clic en un button, usando el método DrawLine

Código fuente con un Button1
Option Explicit On Option Strict On Imports System.Drawing Public Class Form1 Dim oPen As Pen Dim oGrafico As Graphics Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Me.BackColor = Color.Black Button1.Text = "Crear líneas" End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ' gráfico ( en el form ) oGrafico = Me.CreateGraphics ' para la linea ( color rojo con 1 de grosor ) oPen = New Pen(Color.Red, 1) Dim i As Integer For i = 0 To Me.Height Step 15 oGrafico.DrawLine(oPen, 10, 10, Me.Width, i) Next End Sub End Class