Good morning to you all! Well I survived my birthday. As it turned out I ended up working from home yesterday which foiled my parents birthday surprise. They sent me a bunch of black balloons with one saying "Over The Hill" and the other side of it saying "40". They had wanted me to get them in front of my co workers and such. Oh well. :). My wife took me to dinner at a local restaurant. And the best present I could have gotten was the fact my oldest daughter who is such a beautiful girl, has told me (if I pay for it of course!) she will go back to her natural hair color and look. It certainly better than this hideous look she has had for so long. I told her I would pay as long as she understands that this look has to stay until she moves out (she turns 18 in February). If she changes it she owes me the money it cost to get her back to her natural look. So we shall see……
My youngest is not doing well at camp. The nurse called yesterday and said she had never seen such an extreme case of parental separation anxiety in all the time she has been the nurse at that camp. I suspect it is more about social anxiety than anything. But it sounds like Jean will go and get her Wednesday instead of Friday. So we have some work to do with her on this stuff. She is 12 years old and we need to build her confidence that in a strange social environment she will be okay.
Anyway, the situation was such I needed to list all forms in my projects for various reasons. Here is what I came up with to do such. Make it a great day!
Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim types As Type() = myAssembly.GetTypes()
For Each myType In types
If myType.BaseType.FullName = "System.Windows.Forms.Form" Then