|
Visual Basic (VB and VBA) |
Copyright 1999-2001 Christopher Greaves. All rights reserved.
Home Page and email to [email protected] |
|
If in doubt, record a macro and inspect the entrails! |
Please read the DISCLAIMER.
Here is an INDEX to all the procedures.
You will probably need one copy of my GLOBAL DECLARATIONS.
Public Function cmdCaptionsClick(frmMe As UserForm)
' Change the balloon text on all buttons
Const intcCaptions As Integer = 109
Dim strCaptions(intcCaptions) As String
strCaptions(0) = "Do not walk behind me, for I may not lead. Do not walk ahead of me, for I may not follow. Do not walk beside me, either. Just leave me the hell alone."
strCaptions(1) = "The journey of a thousand miles begins with a broken fan belt and leaky tire."
strCaptions(2) = "It's always darkest before dawn. So if you're going to steal the neighbor's newspaper, that's the time to do it."
strCaptions(3) = "Sex is like air; it's not important unless you aren't getting any."
strCaptions(4) = "We are born naked, wet, and hungry. Then things get worse."
strCaptions(5) = "No one is listening until you make a mistake."
strCaptions(6) = "Always remember you're unique, just like everyone else."
strCaptions(7) = "Never test the depth of the water with both feet."
strCaptions(8) = "It may be that your sole purpose in life is simply to serve as a warning to others."
strCaptions(9) = "It is far more impressive when others discover your good qualities without your help."
strCaptions(10) = "If you think nobody cares if you're alive, try missing a couple of car payments."
strCaptions(11) = "If you tell the truth you don't have to remember anything."
strCaptions(12) = "If you lend someone $20, and never see that person again - it was probably worth it."
strCaptions(13) = "Give a man a fish and he will eat for a day. Teach him how to fish, and he will sit in a boat and drink beer all day."
strCaptions(14) = "If you drink, don't park. Accidents cause people."
strCaptions(15) = "Some days you are the bug, some days you are the windshield."
strCaptions(16) = "Don't worry, it only seems kinky the first time."
strCaptions(17) = "If at first you don't succeed, skydiving is not for you."
strCaptions(18) = "Don't squat with your spurs on."
strCaptions(19) = "Good judgment comes from bad experience and a lot of that comes from bad judgment."
strCaptions(20) = "The quickest way to double your money is to fold it in half and put it back in your pocket."
strCaptions(21) = "Timing has an awful lot to do with the outcome of a raindance."
strCaptions(22) = "A closed mouth gathers no foot."
strCaptions(23) = "Duct tape is like the force, it has a light side and a dark side and it holds the universe together."
strCaptions(24) = "Eagles may soar, but weasels don't get sucked into jet engines."
strCaptions(25) = "There are two theories to arguing with women. Neither one works."
strCaptions(26) = "Never miss a good chance to shut up"
strCaptions(27) = "Generally speaking, you aren't learning much when your mouth is moving."
strCaptions(28) = "Before you criticize someone, you should walk a mile in their shoes. That way, when you criticize them, you're a mile away and you have their shoes."
strCaptions(29) = "Experience is something you don't get until just after you need it."
strCaptions(30) = "Don't be irreplaceable; if you can't be replaced, you can't be promoted."
strCaptions(31) = "Don't mess up a good apology with an excuse."
strCaptions(32) = "Take into account that great love and great achievements involve great risk."
strCaptions(33) = "When you lose, don't lose the lesson."
strCaptions(34) = "Follow the three Rs: Respect for self Respect for others and Responsibility for all your actions."
strCaptions(35) = "Remember that not getting what you want is sometimes a wonderful stroke of luck."
strCaptions(36) = "Learn the rules so you know how to break them properly."
strCaptions(37) = "Don't let a little dispute injure a great friendship."
strCaptions(38) = "When you realise you've made a mistake, take immediate steps to correct it."
strCaptions(39) = "Spend some time alone every day."
strCaptions(40) = "Open your arms to change, but don't let go of your values."
strCaptions(41) = "Remember that silence is sometimes the best answer."
strCaptions(42) = "Live a good, honourable life. Then when you get older and think back, you'll be able to enjoy it a second time."
strCaptions(43) = "A loving atmosphere in your home is the foundation for your life."
strCaptions(44) = "Do all you can to create a tranquil, harmonious home."
strCaptions(45) = "In disagreements with loved ones, deal only with the current situation."
strCaptions(46) = "Don't bring up the past."
strCaptions(47) = "Share your knowledge. It's a way to achieve immortality."
strCaptions(48) = "Be gentle with the earth."
strCaptions(49) = "Once a year, go someplace you've never been before."
strCaptions(50) = "Remember that the best relationship is one in which your love for each other exceeds your need for each other"
strCaptions(51) = "Judge your success by what you had to give up in order to get it."
strCaptions(52) = "Approach love and cooking with reckless abandon."
strCaptions(53) = "Don't Brake!"
strCaptions(54) = "Home is where you hang your @."
strCaptions(55) = "The e-mail of the species is more deadly than the mail."
strCaptions(56) = "A journey of a thousand sites begins with a single click."
strCaptions(57) = "You can't teach a new mouse old clicks."
strCaptions(58) = "Great groups from little icons grow."
strCaptions(59) = "Speak softly and carry a cellular phone"
strCaptions(60) = "C:\ is the root of all directories."
strCaptions(61) = "Oh, what a tangled website we weave when first we practice."
strCaptions(62) = "Pentium wise, pen and paper foolish."
strCaptions(63) = "The modem is the message."
strCaptions(64) = "Too many clicks spoil the browse."
strCaptions(65) = "The geek shall inherit the earth."
strCaptions(66) = "There's no place like "
strCaptions(67) = "Don't byte off more than you can view."
strCaptions(68) = "Fax is stranger than fiction."
strCaptions(69) = "What boots up must come down."
strCaptions(70) = "Windows will never cease."
strCaptions(71) = "Virtual reality is its own reward."
strCaptions(72) = "Modulation in all things."
strCaptions(73) = "Give a man a fish and you feed him for a day; Teach him to use the Net and he won't bother you for weeks."
strCaptions(74) = " Never under any circumstances take a sleeping pill and a laxative on the same night."
strCaptions(75) = "If you had to identify, in one word, the reason why the human race has not achieved, and never will achieve, its full potential, that word would be ""meetings."""
strCaptions(76) = "There is a very fine line between ""hobby"" and ""mental illness."""
strCaptions(77) = "People who want to share their religious views with you almost never want you to share yours with them."
strCaptions(78) = "And when God, who created the entire universe with all of its glories, decides to deliver a message to humanity, He WILL NOT use, as His messenger, a person on cable TV with a bad hairstyle."
strCaptions(79) = "You should not confuse your career with your life."
strCaptions(80) = "No matter what happens, somebody will find a way to take it too seriously."
strCaptions(81) = "When trouble arises and things look bad, there is always one individual who perceives a solution and is willing to take command Very often, that individual is crazy."
strCaptions(82) = "Nobody cares if you can't dance well Just get up and dance."
strCaptions(83) = "Never lick a steak knife."
strCaptions(84) = "Take out the fortune before you eat the cookie."
strCaptions(85) = "The most powerful force in the universe is gossip."
strCaptions(86) = "You will never find anybody who can give you a clear and compelling reason why we observe daylight savings time."
strCaptions(87) = "You should never say anything to a woman that even remotely suggests that you think she's pregnant unless you can see an actual baby emerging from her at that moment."
strCaptions(88) = "There comes a time when you should stop expecting other people to make a big deal about your birthday That time is age 1"
strCaptions(89) = "The one thing that unites all human beings, regardless of age, gender, religion, economic status or ethnic background, is that, deep down inside, we ALL believe that we are above average drivers."
strCaptions(90) = "The main accomplishment of almost all organized protests is to annoy people who are not in them."
strCaptions(91) = "A person who is nice to you, but rude to the waiter, is not a nice person."
strCaptions(92) = "Your friends love you anyway."
strCaptions(93) = "The more you complain, the longer God lets you live."
strCaptions(94) = "Lord help me to relax about insignificant details beginning tomorrow at 11:41.23 am e.s.t."
strCaptions(95) = "God help me to consider people's feelings, even if most of them ARE hypersensitive."
strCaptions(96) = "God help me to take responsibility for my own actions, even though they're usually NOT my fault."
strCaptions(97) = "God, help me to not try to RUN everything. But, if You need some help, just ask "
strCaptions(98) = "Lord, help me to be more laid back and help me to do it EXACTLY right. "
strCaptions(99) = "Lord, help me to stand up for my rights (if you don't mind my asking)."
strCaptions(100) = "God help me to take things more seriously, especially parties and dancing."
strCaptions(101) = "God give me patience, and I mean right NOW"
strCaptions(102) = "Lord help me not be a perfectionist. (did I spell that correctly?) "
strCaptions(103) = "God, help me to finish everything I sta"
strCaptions(104) = "God, help me to keep my mind on one th-Look a bird- ing at a time."
strCaptions(105) = "God help me to do only what I can and trust you for the rest. Do you mind putting that in writing?"
strCaptions(106) = "Lord keep me open to others' ideas, WRONG though they may be."
strCaptions(107) = "Lord help me be less independent, but let me do it my way."
strCaptions(108) = "Lord help me follow established procedures today. On second thought, I'll settle for a few minutes."
strCaptions(109) = "Lord, help me slow downandnotrushthroughwhatIdo"
Dim myControl As Control
Dim intControl As Integer
intControl = intcCaptions * Rnd()
For Each myControl In frmMe.Controls
If intControl >= intcCaptions Then intControl = 0
myControl.ControlTipText = strCaptions(intControl)
intControl = intControl + 1
Next myControl
' Call ResetCaptions
End Function
|
We all knew nothing when we started … |
Home Page and Contact Information
Send email to [email protected].
This page was last updated Thursday, November 15, 2001 |