Calcular el Salario neto de un Trabajador.

Esta aplicación sirve para calcualas el Salario Neto de un trabajador.
A continuacion la programacion:
Private Sub Command1_Click()
Text4.Text = Text2 * Text3
Text5.Text = 0.2 * Text4
Text6.Text = Text4 - Text5
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub




Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "" Then
MsgBox ("DIGITE UN NOMBRE")
Text1.SetFocus
Else
Text2.SetFocus

End If
End If
End Sub



Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "" Then
MsgBox ("DIGITE UN NOMBRE")
Text1.SetFocus
Else
Text3.SetFocus

End If
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "" Then
MsgBox ("DIGITE UN NOMBRE")
Text1.SetFocus
Else
Text4.SetFocus

End If
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "" Then
MsgBox ("DIGITE UN NOMBRE")
Text1.SetFocus
Else
Text6.SetFocus

End If
End If
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "" Then
MsgBox ("DIGITE UN NOMBRE")
Text1.SetFocus
Else
Text6.SetFocus

End If
End If
End Sub

 Esta aplicacion  muestra las componentes de la Cocina.
A continuacion son los codigos de Visual Basic :

Private Sub Command1_Click()
End
End Sub

Private Sub Label10_Click()
Label1.Caption = "Gabinete"
End Sub

Private Sub Label11_Click()
Label1.Caption = "Servilletas"
End Sub

Private Sub Label2_Click()
Label1.Caption = "Estufa"
End Sub

Private Sub Label3_Click()
Label1.Caption = "Florero"
End Sub

Private Sub Label4_Click()
Label1.Caption = "Olla"
End Sub

Private Sub Label5_Click()
Label1.Caption = "Delantales"
End Sub

Private Sub Label6_Click()
Label1.Caption = "Horno"
End Sub

Private Sub Label7_Click()
Label1.Caption = "Estractor"
End Sub

Private Sub Label8_Click()
Label1.Caption = "Vasos"
End Sub

Private Sub Label9_Click()
Label1.Caption = "Silla"
End Sub

Componentes de la PC

En etsa aplicaccion se muestra los componentes dela computadora.
A continuacion vemos la programacion en Visual Basic:

Private Sub Command1_Click()

End

End Sub

Private Sub Label3_Click()

Label2.Caption = "MONITOR"

End Sub

Private Sub Label4_Click()

Label2.Caption = "PARLANTES"

End Sub

Private Sub Label5_Click()

Label2.Caption = "TORRE"

End Sub

Private Sub Label6_Click()

Label2.Caption = "MOUSE"

End Sub

Private Sub Label7_Click()

Label2.Caption = "TECLADO"

End Sub