Dim V As Single = 160, K As Single = 160
Dim H As Single = 0.5
Dim P As Single = 4 * Math.Atan(1) / 9
Dim C As Single = 2 * 4 * Math.Atan(1) / 320
For N As Single = 0 To 9
    Dim X1 As Single = 0
    Dim Y1 As Single = Int(V  K * Math.Sin(N * P) + H	)
    For J As Single = 5 To 320 Step 5
	   Dim X2 As Single = J
	   Dim Y2 As Single = Int(V  K * Math.Sin(C * J + N * P) + H)
	   e.Graphics.DrawLine(Pens.Black, X1, Y1, X2, Y2)
	   X1 = X2 : Y1 = Y2
    Next
Next
e.Graphics.DrawRectangle(Pens.Black, 0, 0, 320, 320)				
