Pessoal,
me ajudem com este código:
Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
(ByVal dwMilliseconds As Long)
For Cont = 1 To 4 Step 1
Sleep (1000)
Me.Rot_num_senha.Visible = Not Me.Rot_num_senha.Visible
Next Cont
O objetivo é fazer com que o rótulo pisque durante 4 segundos apenas e então pare de piscar. Mas visualmente isso não acontece quando em execução mas se colocarmos um msgbox na última linha observamos que o rotulo alterna entre o modo visível e não visível.
Sei também que posso fazer isso pelo evento No Timer do formulário, mas não sei como fazê-lo parar de piscar depois dos 4 segundos.
A solução pode ser em qualquer um dos dois casos. todas as duas me atendem desde que eu consiga fazer o rotulo parar de piscar depois de 4 segundos.
Obrigado pela ajuda.
me ajudem com este código:
Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
(ByVal dwMilliseconds As Long)
For Cont = 1 To 4 Step 1
Sleep (1000)
Me.Rot_num_senha.Visible = Not Me.Rot_num_senha.Visible
Next Cont
O objetivo é fazer com que o rótulo pisque durante 4 segundos apenas e então pare de piscar. Mas visualmente isso não acontece quando em execução mas se colocarmos um msgbox na última linha observamos que o rotulo alterna entre o modo visível e não visível.
Sei também que posso fazer isso pelo evento No Timer do formulário, mas não sei como fazê-lo parar de piscar depois dos 4 segundos.
A solução pode ser em qualquer um dos dois casos. todas as duas me atendem desde que eu consiga fazer o rotulo parar de piscar depois de 4 segundos.
Obrigado pela ajuda.