calcular el perimetro de un rectangulo Codigo en Visual Basic - VB

Pregunta
Realizar un diagrama de flujo en el programa FreeDFD que permita al usuario calcular el perímetro de un rectángulo  El usuario debe ingresar el largo y el ancho del rectángulo.

Codigo Fuente en Visual Basic

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim ancho, largo, perimetro As Double
        largo = TextBox1.Text
        ancho = TextBox2.Text
        perimetro = 2 * (ancho + largo)
        TextBox3.Text = Trim(perimetro)
    End Sub
End Class

 Descargar Proyecto Visual Basic