a vb progPost title here...

If Calendar(0).hdList = 0 Then
Calendar(0).hdHeight = 0 'Do Not Change
Calendar(0).hd3D = 0 'Do Not Change
Calendar(0).hdBevel = 0 'Do Not Change
Calendar(0).hdInBrdr = False 'Do Not Change
Else
Calendar(0).hdHeight = inPct.ScaleHeight + p1 'Do Not Change
Calendar(0).drpHeight = 190 * p1 'Set/used if dropping
Calendar(0).drpWidth = 190 * p1 'Set/used if dropping-> (Width - 3) / 7 = should be a whole number for best centering
Calendar(0).hd3D = 0 '0 - none, 1 - raised, 2 - sunken
Calendar(0).hdBevel = 0 'Must be 0 if 3D=0
Calendar(0).hdInBrdr = False 'Border inside of bevel - can be used even if 3D=0 and Bevel=0
End If