Hola, estoy empezando con VB.NET y queria dibujar una serie de puntos que cambien el color segun el valor de un archivo.
Bueno dejando temas aparte, lo que ahora estaba provando es para ir dibujando puntos uno al lado del otro, como veis meti en el bucle for lo de dibujar y mypoint deberia variar con la x pero no hace nada.
¿Como podria hacerlo?

Código:
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Const fic As String = "C:\Users\Pablo\Documents\heber\imagen.txt"
  3.         Dim texto As String
  4.         Dim i As Integer = 0
  5.         Dim a As Double
  6.         Dim Separo() As String
  7.         Dim sr As New System.IO.StreamReader(fic)
  8.         Dim x As Integer    'Variable x posicion dibujo
  9.         Dim y As Integer = 10    'Variable x posicion dibujo
  10.         Dim myPoint As Point = New Point(x, y)  'Creamos el punto de inicio
  11.         Dim myLapicero As New Pen(Color.Black, 1)   'Aplicamos el color negro
  12.         texto = sr.ReadToEnd()
  13.         sr.Close()
  14.         Separo = Split(texto, vbTab)
  15.         TextBox1.Text = texto
  16.         If Separo(15) > 0 Then
  17.             a = Convert.ToDouble((Separo(15)))
  18.  
  19.         End If
  20.         For x = 0 To 10
  21.             PictureBox1.CreateGraphics.DrawEllipse(myLapicero, New Rectangle(myPoint, New Size(1, 1)))
  22.             'MsgBox(x)
  23.         Next x
  24.  
  25.     End Sub