'Für dieses kleine Beispiel setzt Du auf dein Formular einfach eine
'PictureBox namens picGraph (AutoRedraw = True !!!!!)
Dim n as Integer
Dim lXPos as Long     'Dein X-Funktions/Messwert
Dim lCurrentY as Long     'Dein Y-Funktions/Messwert
Dim lYPos as Long     'Deine Y-Position auf der PictreBox picGraph
 
'angenommen du benutzt x-werte von 1 - 100
For n = 1 to 100
   lXPos = n
   'Jetzt kommt der ganze Hirnschmalz...
   lYpos = (picGraph.Height / 2) - ((lCurrentY - 4000) * ((picGraph.Height - _
     60) / 2))
   picGraph.Pset (lXPos, lYPos), RGB(0, 128, 255)
Next n