Нарисовать блок-схему по коду

Dim A(1 To 10, 1 To 10) As Integer
Dim B(100, 100) As Integer
Dim S(100, 100) As Integer
Private Sub Command1_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
ff = Val(Text4)
Open File For Input As #1
For i = 1 To 10
For j = 1 To 10
Input #1, A(i, j)
Next j
Next i
Close #1
For i = 1 To n
For j = 1 To m
B(i, j) = A(i, j)
Next j
Next i
MSFlexGrid1.Rows = n + 1
MSFlexGrid1.Cols = m + 1
MSFlexGrid1.Row = 0
For j = 1 To m
MSFlexGrid1.Col = j
MSFlexGrid1.ColWidth(j) = 700
MSFlexGrid1.Text = j
Next j
MSFlexGrid1.Col = 0
MSFlexGrid1.ColWidth(0) = 300
For i = 1 To n
MSFlexGrid1.Row = i
MSFlexGrid1.Text = i
Next i
For i = 1 To n
MSFlexGrid1.Row = i
For j = 1 To m
MSFlexGrid1.Col = j
MSFlexGrid1.Text = B(i, j)
Next j
Next i
 
End Sub
Private Sub Command2_Click()
n = Val(Text2)
m = Val(Text3)
ff = Val(Text4)
File = Text1
proizv = 1
For i = 1 To n
For j = 1 To m
If B(i, j) Mod ff = 0 Then proizv = proizv * B(i, j)
Next j
Next i
Label9.Caption = proizv
 
End Sub
Private Sub Command3_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
For j = 1 To m
i = j
x = A(i, j)
A(i, j) = A(m - i + 1, j)
A(m - i + 1, j) = x
Next j
For i = 1 To n
For j = 1 To m
Picture1.Print A(i, j);
Next j
Picture1.Print vbCrLf
Next i
End Sub
 
Private Sub Command4_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
Sum = 0
For i = 1 To n
Min = B(i, 1)
For j = 1 To m
If B(i, j) < Min Then Min = B(i, j)
Next j
Sum = Sum + Min
Next i
Label8.Caption = Sum
End Sub