¿Es correcto el siguiente codigo?
Public Class Form4
Private Sub IngresoDeEmpleadosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form3.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bonif, incent, Hextras, i, unif, ant, Odes, Ingreso, Egreso, total As Double
CheckBox1.Checked = True Then
bonif = 250
End If
CheckBox2.Checked
incent = 350
End If
CheckBox3.Checked
Hextras = 250
Hextras = TextBox4.Text * Hextras
End If
Ingreso = bonif + incent + Hextras + TextBox7.Text
If CheckBox4.Checked Then
i = 4.83 * TextBox7.Text
CheckBox5.Checked Then
unif = 150
End If
CheckBox6.Checked Then
ant = TextBox5.Text
End If
CheckBox7.Checked Then
Odes = TextBox6.Text
End If
Egreso = i + unif + ant + Odes
total = Ingreso - Egreso
Form5.Show()
Form.TextBox1.Text = TextBox1.Text
Form.TextBox2.Text = TextBox2.Text
Form.TextBox3.Text = TextBox8.Text
Form.TextBox5.Text = TextBox7.Text
Form.TextBox6.Text = bonif
Form.TextBox7.Text = incent
Form.TextBox8.Text = Hextras
Form.TextBox11.Text = i
Form.TextBox12.Text = unif
Form.TextBox13.Text = ant
Form.TextBox14.Text = Odes
Form.TextBox10.Text = total
Form.TextBox9.Text = Ingreso
Form.TextBox15.Text = Egreso
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class
Selecione uma das opções: