График в Visual Basic - VB

Private Sub Command1_Click()
C = 0.36
B = 0.3
Dim A(0.15 To 0.22, 0.18 To 0.3) As Variant
X1 = 0.15: X2 = 0.22: x3 = 0.01
Y1 = 0.18: Y2 = 0.3: Y3 = 0.02
For B = 0.18 To 0.3 Step 0.02
For h = 0.15 To 0.22 Step 0.01
d = Sqr(C ^ 2 - ((B ^ 2 + 4 * h - C ^ 2) / 4 * B) ^ 2)
Picture1.Scale (X1, 0.5)-(X2, 0)
Picture1.Line (h, 0)-(h + x3, d), vbWhite, BF
Picture1.Line (h, 0)-(h + x3, d), vbBlue, B
Picture1.PSet (h, A(h))
Next h
Next B
End Sub