Cita:
Iniciado por -rommel_ 
perdon amigo, el "Label" en que momento cambia???... ese procedimiento si no lo entiendoo... haces que cambie de valor el label???
explicanos en que consiste tu Change del Label
Hola rommel!
Cierto, acabo de ver que el codigo esta incompleto aqui lo posteo de nuevo .:
Código vb:
Ver original'Funcion para cambiar el color del texto
'####################################################
Private Sub Label11_Change()
If Label11.Caption = "ABIERTA" Then
Label11.ForeColor = vbGreen
ElseIf Label11.Caption = "CERRADA" Then
Label11.ForeColor = vbRed
Else
Label11.ForeColor = vbBlack
End If
End Sub
'Funcion para cambiar el color del texto
'####################################################
Private Sub Label12_Change()
If Label12.Caption = "ABIERTA" Then
Label12.ForeColor = vbGreen
ElseIf Label12.Caption = "CERRADA" Then
Label12.ForeColor = vbRed
Else
Label12.ForeColor = vbBlack
End If
End Sub
'Funcion para cambiar el color del texto
'####################################################
Private Sub Label13_Change()
If Label13.Caption = "ABIERTA" Then
Label13.ForeColor = vbGreen
ElseIf Label13.Caption = "CERRADA" Then
Label13.ForeColor = vbRed
Else
Label13.ForeColor = vbBlack
End If
End Sub