es algo muy simple..
si tefijas tienes que cuando se de click en el label 3 del formulario resultado sale el nombre.
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Label1.Caption = Label1.Caption & Str(cal)
If cal < 6 Then
Label2.ForeColor = RGB(255, 0, 0)
Label2.Caption = "REPROBADO"
Else
Label2.ForeColor = RGB(0, 0, 255)
Label2.Caption = "APROBADO"
End If
End Sub
'esto no debe de ir ahi sino en el load...
Private Sub Label3_Click()
Label3.Caption = Trim((Nom) & " Usted fue :")
End Sub
asi :
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Label1.Caption = Label1.Caption & Str(cal)
Label3.Caption = Trim((Nom) & " Usted fue :")
If cal < 6 Then
Label2.ForeColor = RGB(255, 0, 0)
Label2.Caption = "REPROBADO"
Else
Label2.ForeColor = RGB(0, 0, 255)
Label2.Caption = "APROBADO"
End If
End Sub
Autor
Pues ahí estuvo el problema, ¡Qué ciegos fuimos!
Saludos 
.
En línea
