графики в VB

[Kracozebr]

У меня есть такой вот код, который строит графики:
Option Explicit
Dim w, h, h1
Dim i, j
Dim a()
Dim n, m, t
Dim cl(3) As ColorConstants
Dim xt(30) As Double
Dim yt(1, 30)



Private Sub Command1_Click()


cl(1) = vbBlue: cl(2) = vbRed: cl(3) = vbGreen
n = 3: m = 30: ReDim a(n, m) 'размерность:3 линии по 200 точек
w = 30 'w/2=-100 <= x <= 100=w/2
h = 30 'h/2=-100 <= y <= 100=h/2
h1 = 0.1 ' длина линии делений
Picture1.Scale (w / 2.5, h / 2.5)-(w, h)
'--------массив
For j = 0 To m
a(1, j) = xt(j) 'Int(Rnd * 250)
a(2, j) = yt(1, j)
a(3, j) = yt(2, j)
Next j
'---------
Call sk
End Sub


Private Sub sk()
'сетка
'ось OX
Picture1.Line (0, h / 1.25)-(w, h / 1.25)
For i = 0 To w Step 0.5 'шаг сетки по ОХ
Picture1.Line (i, h / 1.25 - h1)-(i, h / 1.25 + h1)
Picture1.Print -w / 2 + i
Next i
'ось OY
Picture1.Line (w / 2, 0)-(w / 2, h)
For i = 0 To h Step 0.5 'шаг сетки по OY
Picture1.Line (w / 2 - h1, i)-(w / 2 + h1, i)
If h / 1.25 - i <> 0 Then Picture1.Print h / 1.25 - i
Next i

'график
For i = 1 To n
Picture1.PSet (w / 2, h / 1.25)
For j = 0 To m
Picture1.Line -(w / 2 + j, h / 1.25 - a(i, j)), cl(i)
Next j
Next i
End Sub

Private Sub Form_Load()
With Picture1
.Top = 0: .Left = 0
.Width = 17000: .Height = 9500 '
.AutoRedraw = True
End With
Command1.Top = Picture1.Height + 100
Command1.Left = Picture1.Left + Picture1.Width - Command1.Width
Me.Width = Picture1.Width + 200
Me.Height = Picture1.Height + Command1.Height + 700

End Sub
но к сожалению он мне не подходит(((( , мне надо построить график на котором будут 2 линии, причем в массиве xt задаются значение координат точек по ось абцисс, а в двумерном массиве координаты точек по оси ординат. как можно этот код передалать???