Public Sub picturebox_werte(ByRef wave() As PointF)
        Dim i As Integer
        Dim x, y As Single
        Dim dots As Integer = 12000
        ReDim wave(dots)
        For i = 0 To dots
            x = i - CSng(dots / 2)
            y = CSng(10 * A * Math.Sin(f * (1 / 1000) * x))
 
            wave(i).X = CSng((x * startgroesse_x) / dots + (startgroesse_x / 2))
            wave(i).Y = CSng((y * startgroesse_y * -1) / dots + (startgroesse_y _
              / 2))
        Next
    End Sub

Public Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim pen As New Pen(Color.Black, CSng(1))
        Dim gfx As System.Drawing.Graphics
        Try
            gfx = e.Graphics
            gfx.Clear(Me.BackColor)
            gfx.DrawLines(pen, wave)
 
        Catch ex As Exception
            MsgBox(ex.Message, , "Fehler")
        End Try
 
    End Sub