Dim Point As Integer
    Dim PointY As Integer
    Dim xConst As Integer = 10
 
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
 
        Timer1.Enabled = True
        Timer1.Interval = 1000
 
    End Sub   
 
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
       System.EventArgs) Handles Timer1.Tick
        If PointY = Nothing Then
            PointY = PictureBox1.Height
        Else
            PointY = Point
        End If
        xConst += 20
        Dim xConst2 As Integer
        If xConst = 20 Then
            xConst2 = 0
        Else
            xConst2 = xConst - 20
        End If
        Point = TextBox1.Text ' oder eben dein Wert.
        Dim g As Graphics = Me.PictureBox1.CreateGraphics
        With g
            .DrawLine(Pens.Black, xConst2, PointY, xConst, Point)
        End With
    End Sub

fg viperbone