Visual Basic - CONVERTIR FUENTE VB 6 A DIAGRAMA DE FLUJO

POR FAVOR, ALGUIEN CONOCE ALGUN UTILITARIO QUE ME PERMITA REALIZAR DIAGRAMAS DE FLUJO A PARTIR DEL CODIGO FUENTE VB6 ???
GRACIAS CHICOS..............
RAUL

Busca en la siguiente direccion:

http://www.freedownloadmanager.org/es/downloads/flujo_de_datos_de_red_gratis/
Allá hay varios programas que pueden coger Visual Basic y pasarlo a diagrama de flujo (organigramas) automáticamente.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
l1.Text = Math.Sqrt((x2.Text - x1.Text) ^ 2 + (y2.Text - y1.Text) ^ 2)
l2.Text = Math.Sqrt((x3.Text - x2.Text) ^ 2 + (y3.Text - y2.Text) ^ 2)
l3.Text = Math.Sqrt((x1.Text - x3.Text) ^ 2 + (y1.Text - y3.Text) ^ 2)

pt.Text = Val(l2.Text) + Val(l1.Text) + Val(l3.Text)

s.Text = Val(pt.Text) / 2

at.Text = Math.Sqrt((s.Text) * (s.Text - l1.Text) * (s.Text - l2.Text) * (s.Text - l3.Text))

If l1.Text = l2.Text And l2.Text = l3.Text Then
tt.Text = "equilátero"
ElseIf l1.Text = l2.Text Or l1.Text = l3.Text Or l2.Text = l3.Text Then
tt.Text = "isósceles"
Else
tt.Text = "escaleno"
End If


If l1.Text ^ 2 = l2.Text ^ 2 + l3.Text ^ 2 Or l2.Text ^ 2 = l1.Text ^ 2 + l3.Text ^ 2 Or l3.Text ^ 2 = l1.Text ^ 2 + l2.Text ^ 2 Then
tr.Text = " es un triangulo rectangulo "
Else
tr.Text = " no es un triangulo rectangulo"
End If

ap1.Text = Math.Acos((l2.Text ^ 2 + l3.Text ^ 2 - l1.Text ^ 2) / (2 * l2.Text * l3.Text)) * (180 / Math.PI)
ap2.Text = Math.Floor(Math.Acos((l1.Text ^ 2 + l3.Text ^ 2 - l2.Text ^ 2) / (2 * l1.Text * l3.Text)) * (180 / Math.PI))
ap3.Text = Math.Floor(180 - ap1.Text - ap2.Text)

If x1.Text > x2.Text Then
rp12.Text = "Oeste"
ElseIf x1.Text < x2.Text Then
rp12.Text = "Este"
ElseIf y1.Text < y2.Text Then
rp12.Text = "Norte"
Else
rp12.Text = "Sur"
End If



If x2.Text > x3.Text Then
rp23.Text = "Oeste"

ElseIf x2.Text < x3.Text Then
rp23.Text = "Este"
ElseIf y2.Text < y3.Text Then
rp23.Text = "Norte"
Else
rp23.Text = "Sur"
End If

If x3.Text > x1.Text Then
rp31.Text = "Oeste"

ElseIf x3.Text < x1.Text Then
rp31.Text = "Este"

ElseIf y3.Text < y1.Text Then
rp31.Text = "Norte"
Else
rp31.Text = "Sur"
End If



End Sub
End Class