plot lines

[PremKumar]

I want to plot the lines in my form given only X and Y
coordinates and I have to plot lines X and Y according to
the given Surveyid.FOR ex:-
x y Surveyid
10 10 5
12 12 5
17 17 5
27 27 5
31 31 5
33 33 14
37 37 14
41 41 18
51 51 18
71 71 23
and plenty more.

Note:
In drawing the lines in my form there should'nt be any
connection between distinct surveyid like after drawing
lines for surveyid=5 it should'nt have any connection with
surveyid=14 or surveyid=18 or surveyid=23.All the lines
should be visible within just one button click.
I had tried solving this problem but not yet succesfulled.
so please help.Here is my coding,but incomplete.
Private Sub cmdclick_Click()
On Error Resume Next
'Call my
Do
x1 = Val(rs.Fields("SurveyID").Value)
a = x1

If a = x1 Then
Dim i As Integer
For i = 0 To (rs.RecordCount - 1)
x2 = Val(CStr(rs.Fields("X").Value))
y2 = Val(CStr(rs.Fields("Y").Value))
Circle (x2 * 10, -y2 * 10), 50, vbRed

rs.MoveNext

x3 = Val(CStr(rs.Fields("X").Value))
y3 = Val(CStr(rs.Fields("Y").Value))

Line (x2 * 10, -y2 * 10)-(x3 * 10, -y3 * 10),
vbGreen
Circle (x3 * 10, -y3 * 10), 50, vbRed
Next
Exit Sub
End If

Loop Until a = 20

End Sub
Thanks for ur help.