Ci ho ripensato, può essere una buona soluzione....
Infatti non te l' avevo proposta solo per farti un dispetto
La macro e' errata, perche' l' istruzione UserForm1.Show e' all' interno del loop; quindi se chiudi la form un microsecondo dopo la riapri. Modifica cosi':
- Codice: Seleziona tutto
Private Sub AttivaUserform()
Dim pausetime, start, finish
pausetime = 10
UserForm1.Show vbModeless
start = Timer
Do While Timer < start + pausetime
DoEvents
Loop
finish = Timer
UserForm1.Hide
End Sub
"finish" serve a qualcosa?
Per il colore della scritta, torna in edit della userform, seleziona la label, visualizza le sue proprieta' (Menu /Visualizza /Proprieta'); cerca la voce ForeColor, scegli un colore dall' elenco disponibile, o scrivi il colore che preferisci scrivendo una stringa del tipo "&H00BBGGRR&" (senza virgolette), dove RR (Red), BB (Blu) e GG (Green) possono assumere un valore da 00 (minimo) a FF (massima intensita').
Ciao