Calculo de salario neto

la siguiente es la programación:

Private Sub Command1_Click()
 Text4.Text = Text2 * Text3
 Text5.Text = Text4 * 0.2
 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 Command3_Click()
End
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 Text2.Text = "" Then
    MsgBox ("digite un numero")
     Text2.SetFocus
  Else
  Text3.SetFocus
  End If
  End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text3.Text = "" Then
    MsgBox ("digite un numero")
     Text3.SetFocus
  Else
  Text3.SetFocus
  End If
  End If
End Sub

ejemplos visual

partes de la guitarra

Esta aplicación nos muestra las partes de la guitarra.

La siguiente es la programación:

Private Sub Image1_Click()
Private Sub Command1_Click()
EndEnd SubPrivate Sub Label10_Click()
Label1.Caption = "cuerpo o caja"
End SubPrivate Sub Label11_Click()
Label1.Caption = "costados"
End SubPrivate Sub Label2_Click()
Label1.Caption = "clavijero"
End SubPrivate Sub Label3_Click()
Label1.Caption = "cejuela"
End SubPrivate Sub Label4_Click()
Label1.Caption = "trastes"
End SubPrivate Sub Label5_Click()
Label1.Caption = "mastil"
End SubPrivate Sub Label6_Click()
Label1.Caption = "diapason"
End SubEnd SubPrivate Sub Label7_Click()
Label1.Caption = "boca"
End SubPrivate Sub Label8_Click()
Label1.Caption = "cuerdas"
End SubPrivate Sub Label9_Click()
Label1.Caption = "puente"
End Sub

componentes del pc

Esta aplicacion nos muestra las partes del pc.

la siguiente es la programación:

Private Sub Command1_Click()
End

End Sub

Private Sub Form_Load()

End Sub

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

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

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

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

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