Clasenet

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Enabled = False
TextBox2.Enabled = FalseTextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox6.Enabled = False
TextBox7.Enabled = False
End Sub

Private SubButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = TrueTextBox4.Enabled = True
TextBox5.Enabled = True
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()TextBox6.Clear()
TextBox7.Clear()
TextBox1.Focus()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim ep, ef, lab, prom As Double
ep = CDbl(TextBox3.Text)
ef = CDbl(TextBox4.Text)
lab = CDbl(TextBox5.Text)
prom = (ep + ef + lab) / 3
TextBox6.Text =prom
If prom >= 10.5 Then
TextBox7.Text = "Aprobado"
Else
TextBox7.Text = "Desaprobado"
End If
End Sub
End Class

Si mv<=300 comi=5%del mv
Si mv>300 and mv<=500 7% mv
Si mv>500 and mv<=800 9
Si mv>800 12
Public Class Form2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
End Sub

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()...