Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Integer Dim y As Integer Dim Chemin As String Dim Lignes() Chemin = T1.Text Dim myLines() As String = File.ReadAllLines(Chemin) 'lit tout le fichier et le met dans un tableau For i = 0 To 359 Lignes = Split(myLines(i), ";")'divise les lignes en utilisant le séparateur ";" x = Lignes(2) + 300 y = Lignes(3) + 300 PB.CreateGraphics.DrawRectangle(Pens.Black, x, y, 1, 1)'ces 3 lignes créent le graphique PB.CreateGraphics.DrawLine(Pens.Orange, 300, 300, x, y) PB.CreateGraphics.DrawEllipse(Pens.SteelBlue, 297, 297, 6, 6) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click PB.CreateGraphics.Clear(Color.White)'efface la picturebox End Sub End Class