Make Images blink in user form

[TheNoocH]

I have a bunch of images on my user form...
my goal is to have them look like they are blinking...

i tried something like this

For i = 1 To 3    ' Loop 3 times.
         For Each ctl In Main.Controls
           If TypeOf ctl Is MSForms.Image Then ctl.Visible = True
         Next ctl
       Beep
          For Each ctl In Main.Controls
           If TypeOf ctl Is MSForms.Image Then ctl.Visible = False
         Next ctl
Next i

i also tried using application.wait...but that didn't work either...the result of this is that all images are not shown (which is the default state) and i only hear one beep....if i put a break toggle on the line that shows the beep everything appears to work properly....but i guess i need to add something to this to slow down the processing...any help would be great...

 

[erik.van.geit]

Hi,

try this

For i = 1 To 6    ' Loop 3 times * 2
    For Each ctl In Main.Controls
    If TypeOf ctl Is MSForms.Image Then ctl.Visible = Not ctl.Visible
    Next ctl
    Me.Repaint
Next i

(didn't test) but quite sure repaint is what you need
after repaint you might insert a "sleep"line

  Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
   
  '1000 milliseconds = 1 second 
  Sub Example() 
       'about 1/3 second 
       Sleep CLng(333) 
       '1/4 second 
       Sleep CLng(250) 
       '1/2 second 
       Sleep CLng(500) 
       '10 seconds 
       Sleep CLng(10000) 
  End Sub

kind regards,
Erik

 

[TheNoocH]

Erik,
thanks for the response...
i added the sleep line but needed to change it to a public declare and everythign seems to work as intended...
thanks...