Рисование блок-схемы программы работающей с изображениями (VB)

[Radmir853]

Private Sub Command1_Click()
Picture1.Cls
Picture1.Scale (-6, 75)-(6, -5)
For j = -5 To 75 Step 2
Picture1.Line (-6, j)-(6, j), RGB(200, 200, 200)
Next
For i = -6 To 6 Step 0.5
Picture1.Line (i, -5)-(i, 75), RGB(200, 200, 200)
Next


Picture1.DrawWidth = 1.5
Picture1.Line (-6, 0)-(6, 0), vbBlack
Picture1.Line (0, 75)-(0, -5), vbBlack

Picture1.DrawWidth = 1.5
Picture1.Line (-6, 0)-(9, 0), vbBlack
Picture1.Line (0, 21)-(0, -8), vbBlack


Picture1.Line (0, 75)-(0.2, 69), vbBlack
Picture1.Line (0, 75)-(-0.2, 69), vbBlack
Picture1.Line (6, 0)-(4.5, 1), vbBlack
Picture1.Line (6, 0)-(4.5, -1), vbBlack

Picture1.Line (1, 69)-(1.3, 74), vbBlack
Picture1.Line (0.8, 74)-(1.15, 71.1), vbBlack

Picture1.Line (5, 7)-(5.5, 2.5), vbBlack
Picture1.Line (5, 2.5)-(5.5, 7), vbBlack



Picture1.DrawWidth = 3
For X = -5 To 5 Step 0.005
Y1 = 3 * X ^ 2
Picture1.PSet (X, Y1), RGB(30, 100, 200)
Next
End Sub

Мне хотя бы часть узнать, остальное сам нарисую.
Мне кажется, нужно рисовать обозначениями цикла и передачи данных.