How about:

 

If WarningLabel1.Visible = True Then

  WarningLabel1.Visible = Fales

Else

  WarningLabel1.Visible = True

EndIf

 

This might work also:

 

WarningLabel1.Visible = Not(WarningLabel1.Visible)

 

 

 

From: [email protected] [mailto:[email protected]] 
Sent: Thursday, October 01, 2009 2:52 PM
To: Talk
Subject: [talkbws] UserForm Label Blinking

 

Hello all,

I'm trying to get one of my BWS UserForm Labels to blink and I'm not having any 
luck. Here is what I am trying:

 

Private Sub UserForm_Initialize()

Timer1.Interval = 500 '0.5 second

End Sub

 

Private Sub Timer1_Timer()

WarningLabel1.Visible = Not WarningLabel1.Visible

End Sub

 

The colors for my label are

 

Background: &H8000000F&

Foreground: &H000000FF&

 

The goal is to have a blinking label that doesn't interfere with the 
functionality of the form. Any ideas?

 

Thank you,

Mitch Lawrence

Lead Applications Analyst

Enterprise Data Standards - NPR/Automation

CHRISTUS Information Management

™: [email protected] 
<mailto:[email protected]> 

 

 

 

--- 
To post a message to this list, send mail to: [email protected] 

You are currently subscribed as: [email protected] 

Unsubscribe in the customer center on our website: 
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx 
--- 
To post a message to this list, send mail to: [email protected] 

You are currently subscribed as: [email protected] 

Unsubscribe in the customer center on our website: 
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx 

<<image001.jpg>>

Reply via email to