Синусоида в Visual Basic. Помогите, пожалуйста, построить график синусоиды в Visual Basic)

Public Class Form1
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
Dim w = Me.DisplayRectangle.Width, h = Me.DisplayRectangle.Height - 10, g = e.Graphics, _
gx0 = 0, gy0 = -Math.Sin(0) * h + h / 2 + 5, dx = 11 / w
For gx = 1 To w - 1
Dim x = gx * dx, gy = -Math.Sin(x) * h / 2 + h / 2 + 5
g.DrawLine(Pens.Black, _
gx0, Convert.ToInt32(Math.Round(gy0)), _
gx, Convert.ToInt32(Math.Round(gy)))
gx0 = gx
gy0 = gy
Next
End Sub
End Class