Public Class Form1
    Dim gr As Graphics
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim black_pen As Pen = New Pen(Color.Black, 1)
        Dim y0 As Single = 0
        For x As Single = 0 To Me.Width Step 0.01
            gr.DrawLine(black_pen, x - 1, y0 + 210, x, CSng(Berechne(x)) + 210)
            y0 = CSng(Berechne(x))
        Next x
    End Sub
    Function Berechne(ByVal F As Double) As Double ' Berechne den zugehörigen 
    ' Y-Wert
        Return F ^ 2 ' oder sin(f)*12*cos(x*3)... 
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        gr = CreateGraphics()
    End Sub
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim z As Long, i As Long
        For z = -5 To ClientSize.Width Step 10 ' Koordinatensystem zeichnen
            gr.DrawLine(New System.Drawing.Pen(Color.Blue, 0), z, 0, z, _
              Me.Height)
        Next z
        For i = -5 To ClientSize.Height Step 10
            gr.DrawLine(New System.Drawing.Pen(Color.Blue, 0), 0, i, Me.Width, _
              i)
        Next i
        ' Achsen:
        gr.DrawLine(New System.Drawing.Pen(Color.Red, 0), CSng(ClientSize.Width _
          / 2), 0, CSng(ClientSize.Width / 2), ClientSize.Height)
        gr.DrawLine(New System.Drawing.Pen(Color.Red, 0), 0, CSng( _
        ClientSize.Height / 2), ClientSize.Width, CSng(ClientSize.Height / 2))
    End Sub
End Class

MSUser