Componentes necessários:
TextBox1
TextBox2
TextBox3
Button1=Calcular
Button2=Apagar
Button3=Sair
TextBox1
TextBox2
TextBox3
Button1=Calcular
Button2=Apagar
Button3=Sair
Código:
Public Class Form1 Private Sub Calcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calcular.Click TextBox3.Text = TextBox1.Text * TextBox2.Text / 12 End Sub Private Sub Apagar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Apagar.Click TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" End Sub Private Sub Sair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sair.Click Me.Close() End Sub End Class
Comment