Dim i As Single '"x523.50y323.76"
Dim FN As Long
Me.DrawWidth = 2
Me.Scale (0, 0)-(1000, 1000)
FN = FreeFile
Open "C:\Win98\DeskTop\bb.txt" For Input As #FN
i = 0
Do Until EOF(1)
i = i + 1
Input #1, ss
If i = 1 Then
PSet (Val(Right(ss, Len(ss) - 1)), Val(Right(ss, Len(ss) - InStr(1, ss, "y", 1))))
Else
Line -(Val(Right(ss, Len(ss) - 1)), Val(Right(ss, Len(ss) - InStr(1, ss, "y", 1))))
End If
Loop
Close #FN