Boa noite!!!
Veja se é isso...
Private Sub CommandButton1_Click()
If Label1.Caption Mod 1000 = 0 Then
Label1.ForeColor = RGB(255, 255, 0)
Label1.BackColor = RGB(255, 0, 0)
End If
End
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 12/03/2013 4:02 pm