Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    Dim MyPen As New Pen(Color.Black, 1)
    Dim p(200) As Point
    Dim i As Integer
    For i = 0 To 200
        p(i) = New Point(i * 2, (Math.Sin(i) + 1) * 20)
    Next
    e.Graphics.DrawLines(MyPen, p)
End Sub