Public Sub picturebox_werte()
        Try
            Dim i As Integer
            Dim x, y As Single
            Dim dots As Integer = 12000
 
            Dim pic As New Bitmap(startgroesse_x + 5, startgroesse_y)
 
            ReDim wavex(dots)
            ReDim wavey(dots)
            For i = 0 To dots
                x = i - CSng(dots / 2)
                y = CSng(10 * A * Math.Sin(f * (1 / 1000) * x))
 
                wavex(i) = CInt((x * startgroesse_x) / dots + (startgroesse_x / _
                  2))
                wavey(i) = CInt((y * startgroesse_y * -1) / dots + ( _
                startgroesse_y / 2))
 
                pic.SetPixel(wavex(i), wavey(i), Color.Black)
                PictureBox1.Image = pic
            Next
 
 
        Catch ex As Exception
            MsgBox(ex.Message, , "Fehler")
        End Try
 
 
    End Sub