Boleta de Pago

Esta aplicación es una boleta de pago en el cual indica el Salario Neto.

A continuación su programación :

Private Sub Check1_Click()

Text5.Text = Text2.Text * 0.03

End Sub

Private Sub Check2_Click()

Text6.Text = Text2.Text * 0.07

End Sub

Private Sub Check3_Click()

Text7.Text = Text2.Text * 0.01

End Sub

Private Sub Command1_Click()

Dim k, m, n As Integer

k = Text2.Text

m = Text3.Text

n = Text4.Text

Text8.Text = (((k + (m * n)) - (Text5.Text)) - Text6.Text) - Text7.Text

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Option1_Click()

Text4.Text = 10000

End Sub

Private Sub Option2_Click()

Text4.Text = 15000

End Sub