[Brilene]

I AM WORKING IN VB6
I HAVE ONE Label THAT I WANT TO MOVE WITH THE DATE CHANGE. ON THE FIRST OF THE MONTH IT WOULD MOVE DOWN THE WIDTH OF THE Label. EACH MONTH WHEN THE MONTH DATE CHANGED. I WANT TO SHOW…..
LABEL6.CAPTION = FORMAT(DATE, "YYYY")

Label6
move here on first of month
move here on next month
and so on

[tlhIn`toq]

So... Gimme teh codez to do what I want.

No effort on your part. None of your own code that you even tried and would like some help with.

Is that about right?

[Brilene]

I have searched the help file till i am almost blind. I have tried to write the code till my fingers are sore. If I could programm this code would i be posting this problem.

Please forget I asked.

[modi123_1]

How about you show us your last, best, iteration of your attempt at this problem. Maybe you were close but could use some help?

[tlhIn`toq]

Brilene, on 01 February 2013 - 09:08 AM, said:

I have tried to write the code till my fingers are sore.

Show us what you have, and in what way it didn't work for you and we will try to help.

Here is a tip when trying multiple things until you find the right approach:


[*]Don't replace lines of code that don't work. Instead comment them out and put your new attempts below that. This will keep you from re-trying the same ideas over and over. Also, when you come back to us saying "I've tried this 100 different ways and still can't get it", we can actually see what you tried. So often a failed attempt is very very close and just needs a little nudge in the right direction. So if we can say "See what you did in attempt 3... blah blah" it helps a lot

// Try #1 - May 1, 0900hrs
//    code
//    code  
//    code
// Try #2 - May 2, 1700hrs   Okay, plan B.  What if I do it *this* way
//    code
//    code  
//    code
// Try #14 - May 3, 0500hrs after 5 cans of RedBull.  Maybe I should get some sleep. I can't think of anything else but this last idea
    code
    code  
    code

Brilene, on 01 February 2013 - 08:01 AM, said:

MOVE DOWN THE WIDTH OF THE Label.

I'm guessing that isn't right. Normally you wouldn't move *down* according to the *width* of a control. You would move down according to the *height* of a control.

[Brilene]

YearPart = Year(Date)
'For i = 0 To 11
  'Yearlbl(i).Caption = UCase(YearName((13 + i - YearPart) Mod 12 + 1, True))
'Next i

Yes It should be move down the height

This post has been edited by AdamSpeight2008: 01 February 2013 - 09:55 AM

[tlhIn`toq]

You said you want it to move down. Where have you even tried to change the location?

This sure doesn't reflect your statement of "I've coded until my fingers are sore."