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 * PictureBox1.Width) / dots + ( _
              PictureBox1.Width / 2))
            wave(i).Y = CSng((y * PictureBox1.Height * -1) / dots + ( _
            PictureBox1.Height / 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
            If wave Is Nothing Then
                Exit Sub
            Else
                gfx = e.Graphics
                gfx.Clear(Me.BackColor)
                gfx.DrawLines(pen, wave)
                pen.Dispose()
            End If
        Catch ex As Exception
            MsgBox(ex.Message, , "Fehler")
        End Try
 
    End Sub

Private Sub Timer1_Tick() Handles Timer1.Tick
 
        time = time + (Timer1.Interval / 1000)
 
        If RadioButton13.Checked Then
 
            A = 2 ^ exp
            astep = 1 / 10
            Select Case exp
                Case Is < 9.5
                    exp = exp + astep
                Case Is = 9.5
                    exp = 9.5
                    Timer1.Stop()
                Case Is > 9.5
                    exp = 9.5
                    Timer1.Stop()
            End Select
            Call picturebox_werte(wave)
            PictureBox1.Refresh()
        End If
 
        If RadioButton14.Checked Then
            A = 2 ^ exp
            astep = 1 / 10
            exp = exp - astep
            If exp < -3 Then Timer1.Stop()
            Call picturebox_werte(wave)
            PictureBox1.Refresh()
 
        End If
    End Sub