28/01/2003, 18:37
|
| | | Fecha de Ingreso: marzo-2002
Mensajes: 449
Antigüedad: 22 años, 8 meses Puntos: 0 | |
| Pos como decia un maestro mio ..... "TA RE FACIIILLLLLL"
te pongo esto que creo te puede servir:
Private Sub cmdcolor_Click(Index As Integer)
cmdAplicar.Enabled = True
cmdAceptar.Enabled = True
On Error GoTo fin
cd1.CancelError = True
cd1.ShowColor
label(Index).ForeColor = cd1.Color
fin:
End Sub |