Не получается построить график на vb.net

[Сайфулин Даниэль]

вот код:
Public Class Form1

Dim graph As Graphics
Dim pen As New Pen(Color.Black, 2)
Dim drawbrush As New SolidBrush(Color.Red)
Dim font1 As New Font("Times New Roman", 10)
Dim array(10) As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Single
Dim y As Single
Dim b As Single

graph = Me.PictureBox1.CreateGraphics()
'graph.Clear(Color.White)

For i = 0 To 9
array(i) = Rnd()
Next

For x = 0 To 500 Step 100
graph.DrawString(x / 100, font1, drawbrush, x, 500)
Next
For y = 0 To 500 Step 100
graph.DrawString(y / 100, font1, drawbrush, 0, 500 - y)
Next


graph.DrawLine(Pens.Black, 0, 500, 500, 500)
graph.DrawLine(Pens.Black, 0, 0, 0, 500)

For x = 0 To 500 Step 100
graph.DrawLine(Pens.Red, x, 495, x, 505)
Next
For y = 0 To 500 Step 100
graph.DrawLine(Pens.Red, -5, y, 5, y)
Next

For x = 0 To 500 Step 100
y = Math.Sin(x)
graph.DrawLine(Pens.Green, x * 100, y * 100, 1, 1)
Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Application.Exit()
End Sub
End Class

[nilem]

Может, как-то так (ну, что-то похожее на график )

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim x1, y1, x2, y2 As Single
        Dim drawbrush As New SolidBrush(Color.Red)
        Dim font1 As New Font("Times New Roman", 10)
        With Me.PictureBox1.CreateGraphics
            For x = 0 To 500 Step 100
                .DrawString(x / 100, font1, drawbrush, x, 500)
                .DrawLine(Pens.Red, x, 495, x, 505)
            Next
            For y = 0 To 500 Step 100
                .DrawString(y / 100, font1, drawbrush, 0, 500 - y)
                .DrawLine(Pens.Red, -5, y, 5, y)
            Next
            .DrawLine(Pens.Black, 0, 500, 500, 500)
            .DrawLine(Pens.Black, 0, 0, 0, 500)
            x1 = 0 : y1 = 0
            For x2 = 100 To 500 Step 100
                y2 = Math.Sin(x2) * -100
                .DrawLine(Pens.Green, x1, y1, x2, y2)
                MessageBox.Show("начало отрезка:" & vbCrLf & "x1 = " & x1 & ", y1 = " & y1 & vbCrLf & _
                                "конец отрезка: " & vbCrLf & "x2 = " & x2 & ", y2 = " & y2)
                x1 = x2 : y1 = y2
            Next
        End With
    End Sub
   
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Me.Close()
    End Sub