Aplicación en Visual Studio 2010 que calcula el sueldo de un trabajador

Calcular el sueldo de un trabajador y el aumento q esta dado por las siguientes categorias:

 

Categoria A:18%

Categoria B:12%

Categoria C:9%

Categoria D:6%

 

Sueldo Neto esta dado por el Sueldo + Aumento

 

PublicClass Form1

   Dim Categoria, Sueldo, Aumento, Stotal As Single

 

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Sueldo = Val(TextBox1.Text)

 

 

       If RadioButton1.Checked Then

           Aumento = 0.18 * Sueldo

           Label3.Text = Aumento.ToString

           Aumento = Val(Label3.Text)

           Stotal = Aumento + Sueldo

           Label5.Text = Stotal.ToString

           MsgBox("El Aumento es de:" + Aumento.ToString, MsgBoxStyle.Exclamation, "Aumento")

       End If

 

       If RadioButton2.Checked Then

           Aumento = 0.12 * Sueldo

           Label3.Text = Aumento.ToString

           Aumento = Val(Label3.Text)

           Stotal = Aumento + Sueldo

           Label5.Text = Stotal.ToString

           MsgBox("El Aumento es de:" + Aumento.ToString, MsgBoxStyle.Exclamation, "Aumento")

       End If

 

       If RadioButton3.Checked Then

           Aumento = 0.09 * Sueldo

           Label3.Text = Aumento.ToString

           Aumento = Val(Label3.Text)

           Stotal = Aumento + Sueldo

           Label5.Text = Stotal.ToString

          MsgBox("El Aumento es de:" + Aumento.ToString, MsgBoxStyle.Exclamation, "Aumento")

       End If

 

       If RadioButton4.Checked Then

           Aumento = 0.06 * Sueldo

           Label3.Text = Aumento.ToString

           Aumento = Val(Label3.Text)

           Stotal = Aumento + Sueldo

           Label5.Text = Stotal.ToString

           MsgBox("El Aumento es de:" + Aumento.ToString, MsgBoxStyle.Exclamation, "Aumento")

       End If

   End Sub

 

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

       TextBox1.Text = ""

       Label3.Text = ""

       Label5.Text = ""

       RadioButton1.Checked = False

       RadioButton2.Checked = False

       RadioButton3.Checked = False

       RadioButton4.Checked = False

       TextBox1.Focus()

   End Sub

 

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

       End

   End Sub

 

End Class