Sub procRefreshBook ()

    tRefTop! = 2250
    tRefLeft! = 250

    tFrameMargin! = 75
    tBoxHeight! = 240

    tLine1! = tRefTop! + 300
    tLine2! = tRefTop! + 800
    tLine3! = tRefTop! + 1300
    tLine4! = tRefTop! + 1800
    tLine5! = tRefTop! + 2300

    gp3dPanel frmItemDescription, tRefLeft!, tRefTop!, 7925, 2800,
              True  'outside panel

'------line 1
    'txtField(3)
    tLeft! = tRefLeft! + 750: tTop! = tLine1!: tWidth! = 5500
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!,
              tHeight!, False
    gp3dFrame frmItemDescription, tLeft! - tFrameMargin! * 2,
    tTop! - tFrameMargin!, tWidth! + tFrameMargin! * 4, tHeight! +
    tFrameMargin! * 2
'------line  2
    tLeft! = tRefLeft! + 750: tTop! = tLine2!: tWidth! = 5500
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    gp3dFrame frmItemDescription, tLeft! - tFrameMargin! * 2,
    tTop! - tFrameMargin!, tWidth! + tFrameMargin! * 4, tHeight! +
    tFrameMargin! * 2
'-------line 3
    'txtField(5)
    tLeft! = tRefLeft! + 750: tTop! = tLine3!: tWidth! = 2500
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    tSave01! = tLeft!
    'txtField(6)
    tLeft! = tRefLeft! + 3450: tTop! = tLine3!: tWidth! = 1200
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    'txtField(7)
    tLeft! = tRefLeft! + 4850: tTop! = tLine3!: tWidth! = 600
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    'txtField(17)
    tLeft! = tRefLeft! + 5650: tTop! = tLine3!: tWidth! = 600
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    gp3dFrame frmItemDescription, tSave01! - tFrameMargin! * 2,
              tTop! - tFrameMargin!, 5570 + tFrameMargin! * 4,
              tHeight! + tFrameMargin! * 2
'-------line 4 left
    'txtField(8)
    tLeft! = tRefLeft! + 750: tTop! = tLine4!: tWidth! = 1650
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    tSave01! = tLeft!
    'txtField(9)
    tLeft! = tRefLeft! + 2600: tTop! = tLine4!: tWidth! = 700
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    gp3dFrame frmItemDescription, tSave01! - tFrameMargin! * 2,
    tTop! - tFrameMargin!, 2550 + tFrameMargin! * 4, tHeight! +
    tFrameMargin! * 2
'-------line 4 right
    'txtField(10)   medium
    tLeft! = tRefLeft! + 3700: tTop! = tLine4!: tWidth! = 950
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    'txtField(11)
    tLeft! = tRefLeft! + 4850: tTop! = tLine4!: tWidth! = 600
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    'txtField(18)
    tLeft! = tRefLeft! + 5650: tTop! = tLine4!: tWidth! = 600
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    '-
    gp3dFrame frmItemDescription, tRefLeft! + 3700 -
    tFrameMargin! * 2, tTop! - tFrameMargin!, 2575 +
    tFrameMargin! * 4, tHeight! + tFrameMargin! * 2
'-------line 5
    'txtField(12)  language
    tLeft! = tRefLeft! + 750: tTop! = tLine5!: tWidth! = 1000
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    tSave01! = tLeft!
    'txtField(13)  original language
    tLeft! = tRefLeft! + 1950: tTop! = tLine5!: tWidth! = 1000
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    'txtField(14)  original title
    tLeft! = tRefLeft! + 3150: tTop! = tLine5!: tWidth! = 3085
    tHeight! = tBoxHeight!
    gp3dPanel frmItemDescription, tLeft!, tTop!, tWidth!, tHeight!,
              False
    gp3dFrame frmItemDescription, tSave01! - tFrameMargin! * 2,
    tTop! - tFrameMargin!, 5570 + tFrameMargin! * 4, tHeight! +
    tFrameMargin! * 2

End Sub
