Public Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
            Dim i As Integer
            Dim x, y As Single
            Dim dots As Integer = 12000
            Dim wave(dots) As PointF
            Dim pen As New Pen(Color.Black, CSng(1))
 
            gfx = e.Graphics
            gfx.Clear(Me.BackColor)
 
            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
            gfx.DrawLines(pen, wave)
End Sub

Private Sub Timer1_Tick() Handles Timer1.Tick
 
            A = 2 ^ x
            astep = 1 / 10
            Select Case x
                Case Is < 9.5
                    x = x + astep
                Case Is = 9.5
                    x = 9.5  
                    Timer1.Stop()
                Case Is > 9.5
                    x = 9.5
                    Timer1.Stop()
            End Select
 
            PictureBox1.Refresh()
    End Sub