How to change this vb.net code to vb6 (about draw the line in picturebox)

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

Dim g As Graphics = PictureBox1.CreateGraphics
Randomize()

Dim point1(20) As Point

For i As Integer= 0 To 10

point1(i).X = 100 + i * 20
point1(i).Y = Rnd() * 20 + 50

Next
g.DrawLines(Pens.Blue, point1)
End Sub



THANK YOU