Where may I find this person, their immediate family, anscestors and future descendants so I may take revenge upon them all?

[Wes Jones]

If Something() Then
lblpnl10(1).Caption = GetCaptionText(10977, lblpnl10(1).Caption)
lblpnl10(0).Caption = GetCaptionText(10978, lblpnl10(0).Caption)
frapnl10(0).Caption = GetCaptionText(10979, frapnl10(0).Caption)
chkKeepOrigRadioName.Caption = GetCaptionText(10980, chkKeepOrigRadioName.Caption)
lblpnl03(14).Caption = GetCaptionText(10981, lblpnl03(14).Caption)
lblpnl03(13).Caption = GetCaptionText(10982, lblpnl03(13).Caption)
Frame12.Caption = GetCaptionText(10983, Frame12.Caption)
Label13.Caption = GetCaptionText(10984, Label13.Caption)
Label5.Caption = GetCaptionText(10985, Label5.Caption)
Label14.Caption = GetCaptionText(10986, Label14.Caption)
Frame9.Caption = GetCaptionText(10987, Frame9.Caption)
chkLogLateShiftEnd.Caption = GetCaptionText(10988, chkLogLateShiftEnd.Caption)
....48 more
End If

[Luc Pattyn]

you should order those statements alphabetically; that improves maintainability. :)

Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]

---

I only read code that is properly formatted, adding PRE tags is the easiest way to obtain that.
[The QA section does it automatically now, I hope we soon get it on regular forums as well]

---

[Keith Barrow]

Wow, this guy knows nothing, look at all those magic numbers, how are you meant to know what they mean?

    Const Number1 As Int32 = 0
    Const Number2 As Int32 = 1
    Const Number3 As Int32 = 13
    Const Number4 As Int32 = 14
    Const Number5 As Int32 = 10977
    Const Number6 As Int32 = 10978
    Const Number7 As Int32 = 10979
    Const Number8 As Int32 = 10980
    Const Number9 As Int32 = 10981
    Const Number10 As Int32 = 10982
    Const Number11 As Int32 = 10983
    Const Number12 As Int32 = 10984
    Const Number13 As Int32 = 10985
    Const Number14 As Int32 = 10986
    Const Number15 As Int32 = 10987
    Const Number16 As Int32 = 10988

    If Something() Then
        chkLogLateShiftEnd.Caption = GetCaptionText(Number16, chkLogLateShiftEnd.Caption)
        chkKeepOrigRadioName.Caption = GetCaptionText(Number8, chkKeepOrigRadioName.Caption)
        Frame9.Caption = GetCaptionText(Number15, Frame9.Caption)
        Frame12.Caption = GetCaptionText(Number11, Frame12.Caption)
        frapnl10(Number1).Caption = GetCaptionText(Number7, frapnl10(Number1).Caption)
        Label13.Caption = GetCaptionText(Number12, Label13.Caption)
        Label14.Caption = GetCaptionText(Number14, Label14.Caption)
        Label5.Caption = GetCaptionText(Number13, Label5.Caption)
        lblpnl03(Number4).Caption = GetCaptionText(Number9, lblpnl03(Number4).Caption)
        lblpnl03(Number3).Caption = GetCaptionText(Number10, lblpnl03(Number3).Caption)
        lblpnl10(Number2).Caption = GetCaptionText(Number5, lblpnl10(Number2).Caption)
        lblpnl10(Number1).Caption = GetCaptionText(Number6, lblpnl10(Number1).Caption)
    End If

FTFY :-) (Yes, it is a slow day at work)

CCC solved so far: 2 (including a Hard One!) 37!?!! - Randall, Clerks

[Distind]

I used to work with a framework that lived off of that. Piles of magic numbers, created by a mechanical engineer of course. Worked well enough so long as you had the right spreadsheets printed out and wallpapered your cube with them, I assume you have no such spread sheets.

[Jeremy Tierman]

Didn't they give you the secret decoder ring? :omg:

[Wes Jones]

and they say it's hard to improve upon perfection...

[Lutoslaw]

It looks like the coder had asked "how to storr datas inside from classes plz help its urgent" on some forum but nobody answered him, so he/she put app data in invisible areas of caption texts. If it is true then try

lblpnl10(0).AutoSize = True

:laugh:

Greetings - Jacek

[Jorgen Andersson]

I think he may have worked for us. But I must say that he seems to have improved with time.

[NavnathKale]

looks like VB reverse engineered code or generated using some tool