Private Sub CmdAceptar_Click()
TxtPromedio.Text = (Val(TxtNota1.Text) + Val(TxtNota2.Text) + Val(TxtNota3.Text)) / 3
If Val(TxtPromedio.Text) > 10 Then
TxtCondicion.BlackColor = "Aprobado"
TxtCondicion.BlackColor = RGB(255, 0, 0)
End If
CmdAceptar.Enabled = False
CmdNuevo.Enabled = True
Sey Imagen1.Picture = _
LoadPicture("C:VB60bmpnote14.ico")
End Sub

 

 

End Sub

Private Sub CmdNuevo_Click()
TxtCodigo.Text = ""
TxtApellidos.Text = ""
TxtNombres.Text = ""
TxtCurso.Text = ""
TxtNota1.Text = ""
TxtNota2.Text = ""
TxtNota3.Text = ""
TxtPromedio.Text = ""
TxtCondicion.Text = ""
TxtCondicion.BlackColor = RGB(255, 255, 255)
SeutilizaemétodoSetFocusparaenviarelfocoalobjeto
referenciado
TxtCodigo.SetFocus
CmdAceptar.Enabled = False
CmdNuevo.Enabled = False
SetImage1.Picture = _
LoadPicture("c:vb60bmpnote04.ico")
End Sub

 

End Sub

Private Sub CmdSalir_Click()
End
End Sub
End Sub

Private Sub Label7_Click()
Private Sub TxtNota3_Change()
Se HabilitaelcontrolCmdAceptar
CmdAceptar.Enabled = True
End Sub

 

End Sub