End Sub
Private Sub Btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncalcular.Click
Dim sueldo As Double
sueldo = CDbl(txtsueldo.Text)
If cboafp.SelectedIndex = 0 Then
Txtdescuento.Text = CStr(sueldo * 0.05)
Else
Txtdescuento.Text = CStr(sueldo * 0.01)
End If
End Sub
Private Sub btnlimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlimpiar.Click
End Sub
End Class
